Questo è il codice che ho scritto, ma Mi da sempre l'errore una volta aperto il datareport (L'operazione non è consentita se l'oggetto è chiuso).

Private Sub ToolbarButton5_Click()
Dim Strsql As String



'<< Stringa SQL che permette di cercare tutti i clienti che hanno la stessa residenza
'<< nel DataReport
Strsql = "Select * from Rubrica" & " Where ID = text1.text"


Stampa Strsql
End Sub
----------------------------------------------------------------------
Private Sub Stampa(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=C:\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 DataReport4.DataSource = RecDati
DataReport4.WindowState = 0
DataReport4.Show
End Sub