Import Txt->MapPoint (VBA)

Hallo zusammen,

ich erstelle eine Säulendiagrammkarte die notwendige Daten importiere aus Txt-Datei. Import klappt nicht, bekomme ein Fehler:
"Es wurde keine Zuordnungsmethode für diese Felder definiert"

Hier ist der Quellcode:

Sub ExportFromTxtFileToMapPoint()
On Error GoTo Err_Handler
Dim oDS As MapPoint.DataSet
Dim xFieldArray(1 To 2, 1 To 2) As Variant

'Das Feld Name als Name verwenden:
xFieldArray(1, 1) = "Jahr"
xFieldArray(2, 1) = geoFieldData
xFieldArray(1, 2) = "Umsatz"
xFieldArray(2, 2) = geoFieldData
Set oDS = MPApp.ActiveMap.DataSets.ImportData ("N:\Projekte\MapPoint\AbfrageDaten.txt", _
xFieldArray, _
geoCountryGermany, geoDelimiterComma, _
geoImportFirstRowIsHeadings)
Exit Sub

Err_Handler:
MsgBox "ExportFromTxtFileToMapPoint: " & Err.Description, vbCritical, "error: " & Err.Number
End Sub

Ich wäre sehr dankbar für jede Hilfe
Swetlana :cry: