Private Sub cmdCerca_()
Dim dbConn As ADODB.Connection
Dim dbRec As ADODB.Recordset
Set dbConn = New ADODB.Connection
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbRec.Open "Pazienti", dbConn, adOpenForwardOnly, adLockOptimistic, -1
ICod = MaskCodice.Text
Set dbRec = dbConn.Execute("SELECT * FROM Pazienti WHERE CodFiscale = '" & ICod & "'")
dbRec.MoveFirst
txtNome.Text = dbRec!Nome
txtCognome.Text = dbRec!Cognome
End Sub
Non funziona clikko sul bottone e non fa nulla!
Premetto il record non è vuoto.