Auf eine Personal geodatabase zugreifen

Was mache ich falsch?:

Dim pWSFactory As IWorkspaceFactory
Dim pWorkspace As IWorkspace
Dim pFeatWS As IFeatureWorkspace
Dim pTable As ITable
Set pWSFactory = New AccessWorkspaceFactory
'Set pWSFactory = New ShapefileWorkspaceFactory

Set pWorkspace = pWSFactory.OpenFromFile(tbInputPath.Value, 0)
Set pFeatWS = pWorkspace
Set pTable = pFeatWS.OpenFeatureClass(tbInputFile.Value)
'Set pTable = pFeatWS.Table(tbInputFile.Value)
Dim pFields As IFields
Dim pField As IField

'----- Make list of available fields in fields combo -----
Set pFields = pTable.Fields
For z = 0 To (pFields.FieldCount - 1)
Set pField = pFields.FIELD(z)
If pField.Name <> "OID" Then
cbXvalues.AddItem pField.Name
cbYvalues.AddItem pField.Name
cbIDs.AddItem pField.Name
End If
Next z

'----- free memory -----
Set pWSFactory = Nothing
Set pWorkspace = Nothing
Set pFeatWS = Nothing
Set pTable = Nothing
Set pFields = Nothing
Set pField = Nothing


Grüße