Visual Basic - Busqueda con ado

Tengo el codigo para realizar busquedas con inputbox de una sola variable, por ejemplo buscar solo con codigo del cliente, el codigo es el siguiente:

Private Sub Command1_Click()

dato = InputBox("Ingresa el codigo del cliente", "busqueda")
campo = "Codigo like '" & dato & "'"

If dato = Cancel Then
Exit Sub
Else

Adohis.Recordset.MoveFirst
Adohis.Recordset.Find campo

If Adohis.Recordset.BOF Or Adohis.Recordset.EOF Then
MsgBox "EL REGISTRO NO EXISTE", , "ERROR"
Adohis.Refresh

End If
End If

End Sub

Pero yo quiero que, aparte del codigo del cliente, pueda realizar una busqueda mas especifica con otra variable mas, como introducir el codigo del cliente y despues la fecha de la venta.
Gracias.

Utiliza .filter para hacer busquedas con más de una condición. El .find solo te permite incluir una condición.