Private Sub DBverbinden()
 
Set con = New Connection
con.CursorLocation = adUseClient
con.Provider = "microsoft.jet.oledb.4.0"
con.Open "G:\VB-Projekte\FinkeDB\FinkeDB.mdb"
 
End Sub
 
 
 
Private Sub Command1_Click()
 
DBverbinden
Dim rs As New Recordset
rs.Open "Select * from Lieferanten", con, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
 
 
End Sub