Io ho 3 campi nel mio form : nome,cognome,codice fiscale
l'utente può decidere di inserire 1 o 2 o tutti i 3 campi
da lì parte il mio controllo.
Io ho provato a fare così ma quando clicco il bottone cerca
i campi rimangono vuoti.

Private Sub cmdCerca_Click()
Dim request As String
Dim iNome As String
Dim iCognome As String
Dim iCodiceFiscale As String
iCodiceFiscale = MaskCodiceFiscale.Text
iNome = txtNome.Text
iCognome = txtCognome.Text
Dim dbConn As New Connection
Dim dbrec As New ADODB.Recordset
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbrec.Open "Pazienti", dbConn, adOpenForwardOnly, adLockOptimistic, -1
request = "SELECT * FROM Pazienti"
If iNome <> "" Then
request = request & " Nome= '" & iNome & " ' "
If iCognome <> "" Then
request = request & " Nome= '" & iNome & " ' & Cognome= ' " & iCognome & " ' "
If iCodiceFiscale <> "" Then
request = request & " Nome= '" & iNome & " ' & Cognome= ' " & iCognome & " ' & CodFiscale='" & iCodiceFiscale & " ' "
Set dbrec = dbConn.Execute(request)
While Not dbrec.EOF
txtNome = dbrec.Fields("Nome")
txtCognome = dbrec.Fields("Cognome")
MaskCodiceFiscale.Text = dbrec.Fields("CodFiscale")
dbrec.MoveNext
Wend
End If