Private Sub Command2_Click()
  ' Alle vorhandenen Felder in eine ComboBox eintragen
  Dim oDB           As DAO.Database
  Dim oField        As DAO.Field
  Dim oFields       As DAO.Fields
 
  Set oDB = OpenDatabase(App.Path & "Test1.mdb")
  Set oFields = oDB.TableDefs("DeineTabelle").Fields
  Combo1.Clear
  For Each oField In oFields
    ' alle Felder in die ComboBox eintragen
    Combo1.AddItem oField.Name
  Next oField
  oDB.Close
  Set oFields = Nothing
  Set oField = Nothing
  Set oDB = Nothing
End Sub
 
Private Sub Command3_Click()
  ' Feststellen welches Feld ausgewählt ist
  Dim oDB           As DAO.Database
  Dim oField        As DAO.Field
 
  If Combo1.ListIndex > -1 Then
    Set oDB = OpenDatabase(App.Path & "Test1.mdb")
    Set oField = oDB.TableDefs("DeineTabelle").Fields(Combo1.ListIndex)
    MsgBox "Feld: " & oField.Name
    oDB.Close
  End If
  Set oDB = Nothing
  Set oField = Nothing
End Sub