Dim adoConn as New Connection
 
Public Sub DataConnect()
   ' Verbindungsaufbau zur Datenbank
   adoConn.CursorLocation = adUseClient
   adoConn.Open ("Provider=Microsoft.Jet.OLEDB.3.51;" & _
   "Data Source=" & "DeinPfad_und_DeineDB.mdb;")
End Sub
 
Private Sub PrintReport()
   Dim rs as Recordset
   Dim SQL as String
   SQL = "SELECT * FROM DeineTabelle"
   Set rs = adoConn.Excecute(SQL)
   Set DataReport1.DataSource = rs
   DataReport1.Show
   ....
   evtl. Connection und RS löschen
End Sub