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.

[jrp01]

Pues yo nunca he usado el data yo lo hago por ADO es asi:

En proyecto->Referenecias->selaccionas Microsoft Active Data Objects 2.xx

luego declaras
Public cn As New ADODB.Connection
Rs as New ADODB.Recordset

cn.open "Tu cadena de conexion"
set Rs =cn.execute("Tu select")

Y ya tienes el recorset los valores de la consulta para referenciarlos rs(0) Primer campo, rs(2)....., asi sucesivamente depende de tus campos que llamaste en el select o Rs!Nombredelcampo

Si devuelve varios registros te mueves con

Rs.MoveNext Siguiente Registro
Rs.MoveFirst Primer Registro
Rs.MoveLast Ultimo Registro


por ejemplo si vas a llenar Cajas de Texto con el resultado del recordset es asi:

Text1.text=Rs(0)
Text1.text=Rs!Campo1

Cuando salgas:

Set Rs=Nothing
Cn.Close

Saludos

[embersi]

Gracias pero hace un par de dias que empece a indagar en el tema de VB+BD asique prefiero hacerlo de la forma mas facil de aprender y creo que esa es medio complicada.
De todas formas te lo agradezco.

Saludos
Martin

[jrp01]

Si pero te esta manera es mas facil de manipular los datos ya que por ejemplo si
abres un regitro de la menera en como tu lo haces el usuario puede modificar la informacion(cosa nada recomendable). si te decides a cambiar a qui te podemos ayudar.

Saludos

PD. No es tan dificil

[embersi]

Ok, pero recien comienzo es mi primera vez que hago algo con BD y ese era un ejercicioque saque de una pagina pero no puedo seguir si no me funciona ese, ya que segun el tutorial que estoy leyendo es algo basico.
Por eso insistia en que tenia que ser eso, pero acepto lo que me decis y voy a probar con eso y despues veo como sigo leyendo el tuto.
Gracias nuevamente.

[embersi]

No hay forma de solucionarlo ya toque todo y nada, ¿alguna idea?