[VB6] Query malfunzionante con parametri in linea

[printlist]

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

[mgmg]

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

- O_F è un campo del database? A cosa deve essere uguale a text1
- "#And #" Cos'è??

Guarda se così può andarti bene.

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

Ciao

[printlist]

Si O_F è un campo del database.Ho provato la query che mi hai suggerito ma quando si apre il datareport mi da sempre la dicitura "L'operazione non è consentita se l'oggetto e chiuso" cosa devo fare?

[ciro78]

io uso ado per conbnetermi al database ma in genere dovresti aprire il recordset