' 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 "d:\db1.mdb"
End Sub
 
Private Sub TabelleÖffnen_Click()
Set RS = New Recordset
RS.Open "SELECT * FROM Tabelle1", DB, adOpenDynamic, adLockOptimistic
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing
End Sub