mi spieghi che SENSO HA il codice che hai scritto in quella posizione?

Originariamente inviato da xit

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