Comunque, se il codice fiscale è univoco, basterà:

codice:
Set dbRec = dbConn.Execute("SELECT * FROM Pazienti WHERE CodFiscale = '" & ICod & "'") 

txtNome.Text = dbRec!Nome 
txtCognome.Text = dbRec!Cognome 
DTPicker1.Value = dbRec!Data