Strano perchè se non uso l'If per fare le due ricerche funziona.
Non so perchè dite ma a me il database non prende la formatazione americana, se la inserisco in quel modo me la gira di suo e poi utilizzo le date prese dal pc.
Se tolgo If e uso solo questo funziona Quando clicko il cmdButon:
Chiedo venia ma non ho ancora ben capito come si inserisce il codice

rs.Open "SELECT * FROM QuData WHERE Cognome = '" & txtCognome1.Text & "' And Data
= #" & txtfrData.Text & "# And Nome = '" & txtNome1.Text & "';", cn, 1

é quando metto gli if che mi frega
Grazie a tutti