' Prüfen ob ein bestimmtes Datenbankfeld vorhanden ist
Public Function dbFieldExists(TabDef As TableDef, _
  ByVal sFieldName As String) As Boolean
  Dim oField As Field
   For Each oField In TabDef.Fields
    If oField.Name = sFieldName Then
      dbFieldExists = True
      Exit For
    End If
  Next
End Function
 
Private Sub Command1_Click()
Dim Db As Database
Dim dbFile As String
' Datenbankpfad
dbFile = App.Path & "\Daten.MDB"
' Datenbank exklusiv öffnen
Set Db = OpenDatabase(dbFile, True, False)
' Prüfen, ob bestimmtes Feld in der Tabelle vorhanden ist
If Not dbFieldExists(Db.TableDefs("Ersatzteile"), "Test") Then
MsgBox "feld gibt es nicht"
End If
End Sub