Dim F as Field 
Private Sub Command3_Click() 
  Set Db = OpenDatabase(Datei) 
  With Db 
    For Each F In .TableDefs(Combo1.Text)<font color=red>.Fields</font>
      Combo2.AddItem f.Name
    Next 
  End With 
End Sub