alguém sabe o porque deste error

run timer error 3426

this action was cancelled by an associatec object.

 

tenho 2 txts um para cod e outro para nome.

 

Estou tentando sem sucesso realizar a seguinte operação: Ao digitar um codigo no txt1 e pressionar enter ele retorne o nome referente ao codigo. mas ta difícil.

 

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        Data1.Recordset.FindFirst "cod=" & Text1.Text

        If Data1.Recordset.NoMatch Then
            MsgBox "Código não encontrado!"
        End If
    End If
End Sub

 

Da o erro e a linha vermelha fica selecionada.