Boton buscar en la base de datos access

[ariesagv]

Hola a todos:
mi problema es el siguiente tengo una base de datos en access y estoy haciendo los formularios en visual basic; lo que pasa que no estoy usando el data, sino codigo para jalar la base, si jala los registros, pero cuando haga la busqueda de un registro no lo hace o no me lo muestra; si alguien me pudiera decir en que estoy mal
les mando el codigo del boton

Private Sub Buscar_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
'Comprobamos que la caja combinada de la búsqueda no se este vacía.
If Len(Trim(Combo1.Text)) = 0 Then
MsgBox ("Debe especificar el tipo de búsqueda")
Combo1.SetFocus
'Verificamos si la caja del texto a buscar esta vacía.
ElseIf Len(Trim(txtBuscarTexto.Text)) = 0 Then
MsgBox ("Debe especificar el texto a buscar")
txtBuscarTexto.SetFocus
Else
'Verificamos el tipo de búsqueda.
If LCase(Combo1.Text) = LCase("Clave") Then
rs.Find "clave = '" & txtBuscarTexto.Text & "'", , , 1 'Buscamos por clave.
End If
If LCase(Combo1.Text) = LCase("Fecha") Then
rs.Find "fecha = '" & txtBuscarTexto.Text & "'", , , 1 'Buscamos fecha.
End If
If LCase(Combo1.Text) = LCase("Formato") Then
rs.Find "formato = '" & txtBuscarTexto.Text & "'", , , 1 'formato.
End If
'Verificamos si la búsqueda tiene éxito y ponemos los datos en las cajas de texto.
If rs.BOF = False And rs.EOF = False Then
Text1.Text = rs.Fields("clave") 'Ponemos el nombre del registro actual.
Text2.Text = rs.Fields("fecha") 'Ponemos el apellido del registro actual.
Text3.Text = rs.Fields("formato") 'Ponemos el teléfono del registro actual.
Text4.Text = rs.Fields("Descripcion") 'Ponemos la dirección del registro actual.
Text5.Text = rs.Fields("lugar") 'Ponemos el correo del registro actual.
Else
'Mostramos un mensaje si la búsqueda no tiene éxito.
MsgBox ("No se ha podido localizar el registro con el parámetro especificado")
End If
End If
End Sub

[Taribo007]

Te recomendaria que hicieras esta pregunta aqui:

Visual Basic

Un saludo