Hi, all. When running this code one a runtime machine, it gives a runtime error. On machines with a full version of Access, it's fine. Any thoughts?
Thanks,
Stephen.
-----------------------------------------------------------
Private Sub Command406_Click()
Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True
Dim oDS As MapPoint.DataSet
With objApp.ActiveMap.DataSets
Set oDS = .ImportData("c:\map\mapfile.xls", , geoCountryUnitedStates, , geoImportExcelSheet)
End With
objMap.DataSets.ZoomTo
End Sub