Ciao a tutti! Maneggio da poco VB6 e perciò vi chiedo aiuto anche se forse è più un problema di linguaggio SQL il mio:

Ecco il codice:

Dim DBArchvio As Database
Dim RS As Recordset
Dim strSQL As String
Dim dtCurrentDate As Date
Dim prova As ListItem
Dim Cliente As String

dtCurrentDate = Date


Set DBArchivio = OpenDatabase(App.Path & "\store.mdb")
strSQL = "SELECT * FROM Clienti WHERE Data = '" & dtCurrentDate & '"
Set RS = DBArchivio.OpenRecordset(strSQL)


Ecco la finestra di errore di VB6

Tipi di dati non corrispondenti nell'espressione criterio

Mi viene evidenziata la riga Set RS = DBARchivio.OpenRecordset(strSQL)

Il problema è nella "pesca" nel campo Data della tabella Clienti del database. Questo benedetto campo Data l'ho settato nel database di tipo Data/Ora ( parliamo di Access ) col formato 19/02/2004.

Sembrerebbe corrispondere tutto invece quando viene eseguita la SELECT mi torna indietro l'errore suddetto di non rispondenza del criterio dei dati! Dove sbaglio? E' un problema di apici e doppi apici sbagliati nella SELECT ?
Sarebbe un pò urgente per cui mi rimetto alla vostra disponibilità! Grazie!