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