Dim Cn As New ADODB.Connection()
Dim RS As ADODB.Recordset
 
Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As _
  System.EventArgs) Handles MyBase.Load
 
    Dim DBPath As String
    DBPath = "DATA SOURCE=D:\Eigene" & _
      "Dateien\Kassenbuch\Kassenbuch.NET\kassenbuch.mdb;"
 
    Cn.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;", "", DBPath)
 
    RS = New ADODB.Recordset()
    RS.Open("Select * From Kassenbuch", Cn)
 
End Sub

Cn.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;", "", DBPath)