Problemas con VB 5 y Recordset

[embersi]

Hols, estoy aprendiendo amanejar bases de datos con VB 5 hice una prueba con un textbox para buscar determinado registro pero me da un error, el codigo es el siguiente:

Private Sub txtBuscar_KeyPress(KeyAscii As Integer)
' Se buscará sólo cuando pulsemos INTRO
Dim nReg As Long
'
' Comprobar si la tecla pulsada es Intro: vbKeyReturn o 13 que es lo mismo
If KeyAscii = vbKeyReturn Then
' Esta asignación evita que suene un BEEP
KeyAscii = 0
' Convertir el contenido de TextBox en un número
nReg = Val(txtBuscar)
' Buscar la primera coincidencia en el recordset del Data1
' en el campo Au_ID
Data1.Recordset.FindFirst "Socio = " & nReg
End If
End Sub

Este codigo lo saque del tutorial del Guille...

y este es el error:
"Error de compilacion: La funcion o la interfaz esta marcada como restringida, o la funcion usa un tipo de automatizacion no admitida en VB."

Alguna idea de que puede ser..
Gracias de antemano.