io ricevo un errore sulla stringa sql, prova così:

codice:
Strsql = "Select * from Rubrica Where O_F = '" & XPText1.Text & "' And BETWEEN #" & Format$(Text1.Text, "mm/dd/yyyy") & "# And #" & Format$(Text2.Text, "mm/dd/yyyy") & "#"
scusa ma "Stampa2" è un recordset ? xchè nn lo utilizzi in questo modo :
Stampa2.Open Strsql
Stampa2.Execute Strsql