Visual Basic para Aplicaciones - Buscar en access del VB 6.0

Hola espero me puedan sacar de esta duda, tengo una base de datos en access que manejo desde vb 6.0 y quisiera saber como realizar una funcion para hacer una busqueda de un dato para compararlo con una variable de VB, ya tengo funciones para dar de alta, borrar y modificar, no se si eso ayude.

Lo debes hacer con SQL. Para un correcto desarrollo de consultas debes utilizar SQL necesariamente.
Para igualar el valor de una variable a la consulta unicamente deberias hacer:

"SELECT ....... FROM ........ WHERE campo=" & variable

En los puntos suspensivos debes poner los campos y nombre de la tabla.

Hola, ya use la instruccion del select, solo que al realizar la busqueda, siempre me arroja que no hay registro, a pesar de que si exista, este es el codigo que utilizo:

Public Function borra(ByVal variable As Integer) As Boolean
If pid = 1 Then
aviso = MsgBox("Solo exite el registro de ejemplo" & vbCrLf, vbYes, "Ejemplo")
GoTo salir
Else
If existe(variable) = True Then
aviso = MsgBox("Entre en la busqueda" & vbCrLf, vbYes, "Ejemplo")
sql = "select * from estcontrol where codigo=" & variable
aviso = MsgBox("El codigo de la variable ha sido hallado" & vbCrLf, vbYes, "Ejemplo")
cn.Execute sql
RaiseEvent refresh(variable)
borra = True
Else
RaiseEvent error("borrar", "Registro no existente")
borra = False
End If
salir:
End If
End Function

pid es la variable donde guardo la cantidad de registros, es la principal de mi base de datos en access, codigo es el campo donde deseo buscar, que es el segundo y se encuentra como string e indexado con duplicados, no se si eso tenga algo que ver.

De antemano gracias.

MM cambie a este codigo, pero no me deja realizar la conexion se detiene en (***ESTA MARCADO****), NO SE A QUE SE DEBA

Public Function busca(ByVal variable As Integer) As Boolean
Dim rs As New ADODB.Recordset
If pid = 1 Then
aviso = MsgBox("Unico registro existente" & vbCrLf, vbYes, "Ejemplo")
GoTo salir
Else
aviso = MsgBox("Entre en la busqueda" & vbCrLf, vbYes, "Ejemplo")
sql = "select * from estcontrol where codigo=" & variable
rs.Open sql, cn**********AQUI SE DETIENE******************
If rs.EOF Or rs.BOF Then
aviso = MsgBox("El codigo de la variable no ha sido hallado" & vbCrLf, vbYes, "Ejemplo")
Else
aviso = MsgBox("El codigo de la variable ha sido hallado" & vbCrLf, vbYes, "Ejemplo")
End If
rs.Close

salir:
End If
End Function

Despues de hacer el Open del recordset haz un requery, ya que puede ser que no se actualice dicho recordset.
En cuanto a que se detiene quieres decir que tarda mucho tiempo o a que salta un error.

Si terda mucho tiempo dejalo acabar

esta busqueda se hace cuando se utiliza una coneccion utlizando el ADODB
y utilices un datagrid.
cuando ya allas realizado la la coneccion y referenciado el datagrid a tu tabla que esta guardada en acces... programas este pequeño codigo en el boton......y el sistema hace la busque y te los muestra en pantalla..

Private Sub botonbuscar_Click(index As Integer)
Dim b As String

str1 = rscel.Bookmark
b = InputBox("INGRESE EL NOMBRE DEL CLIENTE.", "SISTEMA DE SEGURIDAD")
rscel.MoveFirst
rscel.Find "nom_cliente='" & Trim(b) & "'"
If rscel.EOF Then
MsgBox "EL cliente NO EXISTE", vbCritical, "SISTEMA DE SEGURIDAD"
rscel.Bookmark = srt1
End If
llenarcampospro
habilitar
End Sub
......................................................................................................................................................
nota: para este tipo de busqueda se tiene que teclear el dato igual que como esta en la tabla a buscar en el inputbox.

espero y les sirva de algo----

esta busqueda se hace cuando se utiliza una coneccion utlizando el ADODB
y utilices un datagrid.
cuando ya allas realizado la la coneccion y referenciado el datagrid a tu tabla que esta guardada en acces... programas este pequeño codigo en el boton......y el sistema hace la busque y te los muestra en pantalla..

Private Sub botonbuscar_Click(index As Integer)
Dim b As String

str1 = rscel.Bookmark
b = InputBox("INGRESE EL NOMBRE DEL CLIENTE.", "SISTEMA DE SEGURIDAD")
rscel.MoveFirst
rscel.Find "nom_cliente='" & Trim(b) & "'"
If rscel.EOF Then
MsgBox "EL cliente NO EXISTE", vbCritical, "SISTEMA DE SEGURIDAD"
rscel.Bookmark = srt1
End If
llenarcampospro
habilitar
End Sub
......................................................................................................................................................
nota: para este tipo de busqueda se tiene que teclear el dato igual que como esta en la tabla a buscar en el inputbox.

espero y les sirva de algo----

esta busqueda se hace cuando se utiliza una coneccion utlizando el ADODB
y utilices un datagrid.
cuando ya allas realizado la la coneccion y referenciado el datagrid a tu tabla que esta guardada en acces... programas este pequeño codigo en el boton......y el sistema hace la busque y te los muestra en pantalla..

Private Sub botonbuscar_Click(index As Integer)
Dim b As String

str1 = rscel.Bookmark
b = InputBox("INGRESE EL NOMBRE DEL CLIENTE.", "SISTEMA DE SEGURIDAD")
rscel.MoveFirst
rscel.Find "nom_cliente='" & Trim(b) & "'"
If rscel.EOF Then
MsgBox "EL cliente NO EXISTE", vbCritical, "SISTEMA DE SEGURIDAD"
rscel.Bookmark = srt1
End If
llenarcampospro
habilitar
End Sub
......................................................................................................................................................
nota: para este tipo de busqueda se tiene que teclear el dato igual que como esta en la tabla a buscar en el inputbox.

espero y les sirva de algo----