[vb6] query con parametro data

[krico]

ho realizzato la seg sub

Public Sub apri_rs_1parDATA(ByVal tabella As String, ByVal parametro As String, ByVal valore As Date)
apriconnessione
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from " & tabella & " where " & parametro & "=#" & valore & "#", cn, adOpenDynamic, adLockBatchOptimistic, adCmdUnknown
If Err Then
MsgBox "Unable to open the recordset." & vbCr & Err.Description, vbCritical
Exit Sub
End If
End Sub


alla chiamata passo un dato di tipo cdate(valore) ma non funziona e non mi genera alcun errore. mi restituisce un recordset vuoto.

[PUNKABBESTIA]

Prova senza "#", a me funziona....