Ciao ragazzi non riesco a far funzionare questa query, qualcuno sà dirmi per caso dove sbaglio grazie!!!!!

Dim sQL As String


Private Sub XPButton1_Click()




Dim Strsql As String


Strsql = "Select * from Rubrica Where O_F And DataChiusura BETWEEN= ('" & Text1.Text & "')" & "#And #" & Format$(Text2.Text, "mm/dd/yyyy") & "#"
Stampa2 Strsql
End Sub

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=G:\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