Nella mia query gli dico di andare a estrarre tutti i campi
che corrispondono al valore del codice fiscale che ho
immesso nella Msk.
Problema:se non trovo il codice fiscale perchè non c'è o è stato male
inserito come faccio a mettere una message box in cui gli dico
codice fiscale non trovato .


Private Sub cmdCerca_Click()

If MaskCodiceFiscale.Text = "" Then
MsgBox "Inserisci il codice fiscale", vbExclamation
Exit Sub
End If

Dim dbConn As New ADODB.Connection
Dim dbRec As New ADODB.Recordset
Dim strSQL As String
Dim iCodiceFiscale As String
iCodiceFiscale = MaskCodiceFiscale.Text
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbRec.Open "Pazienti", dbConn, adOpenDynamic, adLockOptimistic, -1
strSQL = "Select * FROM Pazienti WHERE CodFiscale= '" & iCodiceFiscale & "'"
While Not dbRec.EOF
dbConn.Execute (strSQL)
txtNome.Text = dbRec.Fields("Nome")
txtCognome.Text = dbRec.Fields("Cognome")
DTPickerData.Value = dbRec.Fields("data")
dbRec.MoveNext
Wend
dbRec.Close
Set dbRec = Nothing
dbConn.Close
Set dbConn = Nothing
End Sub