Ciao daresti un occhio qui mi da un errore e non perchè!!!!
GRAZIE
Option Explicit
Private mcnADO As New ADODB.Connection
Private mrsADO As New ADODB.Recordset
Private mstrConn As String
Private mstrSQL As String
Private Sub cmdCerca_Click()
txtCOGNOME.Text = mrsADO("Cognome") 'mi da un errore qui sai perchè???
End Sub
Private Sub Form_Load()
mcnADO = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & App.Path & "\Prova_ADO.mdb"
mcnADO.Open mstrConn
mstrSQL = "SELECT Nome FROM Rubrica WHERE Cognome ='" & txtCOGNOME.Text & "'"
mrsADO.Open mstrSQL, mcnADO
End Sub
Rispondi quotando
