you can use the MapPoint wizard from a VB program.
this is like using the built in application manual wizard.

you can use this method:

Sub ShowWizard()
Dim objApp As New MapPoint.Application
'Dim strFile As String
Dim objDS As MapPoint.DataSet

With MPApp.ActiveMap.DataSets
'Access table
'strFile = objApp.Path & "\Samples\Sales.xls!Sheet1!A1:C22"
Set objDS = .ShowImportWizard(, , , geoImportAccessTable)
End With
End Sub