Forum

This is working example of my code that converts Access 2007 query in
Google Earth .kml file
It is fully functional and I'm using it in my sales database.

Of course you should have stored coordinates - longitude/latitude
also - name and description of poi database which have to be exported.

Private Sub Command0_Click()

DoCmd.OpenQuery "QrySim"

Dim MyDB As DAO.Database
Dim MyRS As DAO.Recordset

Dim fld As Field
Dim strText As String
Dim MyTableName As String
Dim QryOrTblDef As String
Dim iFile As Integer

    QryOrTblDef = "QrySim"
    Set MyDB = CurrentDb
    Set MyRS = MyDB.OpenRecordset(QryOrTblDef)
    iFile = FreeFile

    Open "C:\Documents and Settings\ivantassev.UMC\Desktop\EXCELtoKML\DB\KMLIvan.kml" For Output Shared As #iFile

    Print #iFile, "<?xml version=""1.0"" encoding=""utf-8""?>"
    Print #iFile, "<kml xmlns=""http://earth.google.com/kml/2.0"">"
    Print #iFile, "<Document>"

    Print #iFile, " <Folder>"
    Print #iFile, " <name>QrySim</name>"
    With MyRS
        Do Until .EOF

            Print #iFile, " <Placemark>"
            strText = " <description><![CDATA[" & MyRS.Fields(1) & "]]></description>"
            Print #iFile, strText

            strText = " <name><![CDATA[" & MyRS.Fields(0) & "]]></name>"

            Print #iFile, strText

        Print #iFile, "<Point>"

        strText = "<coordinates>" & MyRS.Fields(3) & "," & MyRS.Fields(2) & ",0</coordinates>"

        Print #iFile, strText
        Print #iFile, " </Point>"
            Print #iFile, " </Placemark>"
            .MoveNext
        Loop
    End With

    Print #iFile, " </Folder>"
    Print #iFile, " </Document>"
    Print #iFile, "</kml>"

    Close #iFile
    MyRS.Close
    Set MyRS = Nothing
    Set MyDB = Nothing

    'resest the recordset and database to blank

    'launches google earth
    Call Shell("explorer.exe " & "C:\Documents and Settings\ivantassev.UMC\Desktop\EXCELtoKML\DB\KMLIvan.kml", vbNormalFocus)
End Sub

It is posible using the princip of this code also to export any kind of POI formats - .gpx , .plt and etc.