Dim JobFieldArray(,) As Object
ReDim JobFieldArray(6, 1)
JobFieldArray(0, 0) = "Job_ID"
JobFieldArray(0, 1) = MapPoint.GeoFieldType.geoFieldName
JobFieldArray(1, 0) = "Address1"
JobFieldArray(1, 1) = MapPoint.GeoFieldType.geoFieldAddress1
JobFieldArray(2, 0) = "Address2"
JobFieldArray(2, 1) = MapPoint.GeoFieldType.geoFieldAddress2
JobFieldArray(3, 0) = "City"
JobFieldArray(3, 1) = MapPoint.GeoFieldType.geoFieldCity
JobFieldArray(4, 0) = "State"
JobFieldArray(4, 1) = MapPoint.GeoFieldType.geoFieldRegion1
JobFieldArray(5, 0) = "ZIP"
JobFieldArray(5, 1) = MapPoint.GeoFieldType.geoFieldPostal1
JobFieldArray(6, 0) = "Country"
JobFieldArray(6, 1) = MapPoint.GeoFieldType.geoFieldCountry
' The next statement performs a Mappoint Import Data from the SQL table
oDataSetJobs = oMap.DataSets.ImportData("C:\JHS Varicom\DA Conversion\RDA_Data_WorkbenchSQL.UDL!Job_Cust_SLA_ Address_View", _
JobFieldArray, MapPoint.GeoCountry.geoCountryUnitedStates, MapPoint.GeoDelimiter.geoDelimiterDefault)