' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Private Sub Form_Load()
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Dim Feld As ADODB.Field
 
Set DB = New ADODB.Connection
 
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\Deine.mdb"
 
Set RS = New ADODB.Recordset
 
Rs.Open "SELECT * FROM DeineTabelle", DB, adOpenStatic, adLockOptimistic
 
For Each Feld In RS.Fields
  List1.AddItem Feld.Name
Next
 
RS.Close
DB.Close
 
Set RS = Nothing
Set DB = Nothing
 
End Sub