I am using Microsoft Access to generate a KML file.
Here is my code:
Option Compare Database
Private Sub Command_Click()
DoCmd.OpenQuery "Test1"
'Export data to text file
Dim MyDB As Database
Dim MyRS As Recordset
Dim fld As Field
Dim strText As String
Dim MyTableName As String
Dim QryOrTblDef As String
QryOrTblDef = "Test1"
Set MyDB = CurrentDb
Set MyRS = MyDB.OpenRecordset(QryOrTblDef)
Open "I:\ConnieMa\test.kml" For Output Shared As #1
Print #1, ""
Pr