' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim DB As Connection
Dim RS As Recordset
 
Private Sub Form_Load()
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\DeineDatenbank.mdb"
End Sub
 
Private Sub TabelleÖffnen_Click()
Set RS = New Recordset
RS.Open "SELECT * FROM Tabelle1", DB, adOpenDynamic, adLockOptimistic
 
Do Until RS.EOF
 List1.AddItem RS!DeinFeldname
 RS.MoveNext
Loop
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing
End Sub