codice:
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