Private Sub Command1_Click()
 
Dim oConn As New Connection
Dim oRs As Recordset
  With oConn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
 
    ' Pfad zur Access-Datenbank
    .Properties("Data Source") = "c:\fff.mdb"
 
    ' Cursor-Location
    .CursorLocation = adUseClient
 
    ' Connection öffnen
    .Open
 
 
 
  ' Recordset und Connection schließen
  oRs.Close
  oConn.Close
End Sub