Per connetterti alla base dati che tecnologia usi? Io utilizzo ADO ed inserendo le seguenti righe di codice dovrebbe funzionare:

Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

db_file = App.Path
If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
db_file = db_file & "nomefile.mdb"

Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open

sql = "SELECT * FROM tab1, tab2"
Set rs = conn.Execute(sql, , adCmdText)

Successivamente dovrai gestire il DataReport come ti ho già indicato.
Fammi sapere se sono riuscito ad esserti di aiuto.
Ti saluto cordialmente,