Boton buscar en la base de datos access

[Kruzado]

prueba esto :

'Verificamos el tipo de búsqueda.
select case ucase(combo1.text)
case "CLAVE"
llave="clave = '" & txtBuscarTexto.Text & "'" 'Buscamos por clave.
case "FECHA"
llave="fecha = #" & format(txtBuscarTexto.Text,"mm/dd/yyyy") & "#" 'Buscamos fecha.
case "FORMATO"
llave="formato = '" & txtBuscarTexto.Text & "'" 'formato.
end select
rs.findfirst llave
'Verificamos si la búsqueda tiene éxito y ponemos los datos en las cajas de texto.
If not rs.nomatch 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

findfirst busca desde el inicio de la tabla hasta que lo encuentra el valor buscado, si no lo encuentra la propiedad nomach queda en true, las fechas se buscan entre gatos (#12/31/2008#) y con el formato mm/dd/yyyy.

prueba y nos avisas