Visual Basic - Boton buescar en base de datos de excel?? ayuda

Alguien me podria ayudar a crear un boton que busque en un data indexado con excel,no funciona,soy un principiante y es necesario para realizar un programa de una empresa,es urgente! este es el codigo que tengo y me produce el error 3251:

Buscado = InputBox("Por favor ingrese el Numero de Cheque :")
Nombre = Buscado
Buscado = "[Cheque_No] like '*" & Nombre & "*'"
cmdPrimero_Click
Data1.Recordset.FindFirst (buscar)
If Data1.Recordset.NoMatch = True Then ' Si no lo encontro
MsgBox ("La especialidad no se encuentra")
cmdPrimero_Click
End If
ayuda y gracias de antemano

hola kevin
intentalo asi
lo veria mejor si tuviera el codigo
mi mail es
[email protected]
=========================
Private Sub Command1_Click()
Dim nombre As String
Buscado = InputBox("Por favor ingrese el Numero de Cheque :")
nombre = Buscado
salida = "[Cheque_No] like '*" & nombre & "*'"
'cmdPrimero_Click no se para que es esto
Data1.Recordset.FindFirst (buscar)
If Data1.Recordset.NoMatch = True Then ' Si no lo encontro
MsgBox ("La especialidad no se encuentra")
Else
mostrarlo
End If
'cmdPrimero_Click no se para que es esto
End If
End Sub