Originariamente inviato da printlist
Private Sub Stampa2(sQL As String)
On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=K:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset
Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset
DB.ConnectionString = ConnessioneADODC1
DB.Open

Set RecDati = DB.Execute(sQL)
Set DataReport3.DataSource = RecDati
DataReport3.WindowState = 0
DataReport3.Show
End SUB


stampa2 è una sub che ho creato con il colegamento appropriato.Ho provato con il codice da te suggerito ma mi da sempre l'errore " L'operazione non è consentita se l'oggetto è chiuso"
Prova cosi'

codice:
On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=K:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset
Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset

With DB
    .ConnectionString = ConnessioneADODC1
    .CursorLocation = adUseClient
    .Open ConnessioneADODC1
End With

sql = "select * from tabella1"
'RecDati.Open sql, DB, adOpenStatic, adLockOptimistic

Set RecDati = DB.Execute(sql)
Set DataReport1.DataSource = RecDati

DataReport1.WindowState = 2
DataReport1.Show 1