ok ora funziona.

dato che sei pratico della materia mi daresti anche un consiglio con le date?

ho creato la seguente 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

che richiamo con:

Private Sub cmdrpdata_Click()
Dim data As Date
data = CDate(InputBox("inserisci la data per la ricerca", "PROTOMAGIC - ricerca per data"))
objposta.rs.Close
objposta.apri_rs_1parDATA "protocolli", "data", data
Set Adodc1.Recordset = objposta.rs
DataGrid1.Refresh
End Sub

ma non mi restituisce niente. E' un prob di #?