Buscar en ado

tengo un form de proveedores todo me trabaja bien menos la acción de buscar , trabajo con vb6, adodc y access

Private Sub Buscar_Click()
Dim Buscar As String, criterio As String
Buscar = InputBox("Que Nombre Desea Buscar ?")
If Buscar = Empty Then MsgBox "Introduce Un Valor En El Campo", vbCritical, "Error Buscar": Exit Sub
criterio = "empresa Like '" & Textempresa & "*'"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio
If Adodc1.Recordset.EOF Then MsgBox "No Encuentro El Nombre", vbCritical, "Error Buscar": Adodc1.Recordset.MoveFirst
End Sub