Compruebe los valores de estado...

[gringocre]

Private Sub Command8_Click()
Dim nom As String
nom = InputBox("Ingrese el nombre del cliente", "Busqueda por Ciente")
If nom <> "" Then
Adodc1.Recordset.Find "nombre like '" & nom & "*'", 0, , 1 (aca tira el error)
If Adodc1.Recordset.EOF Then
MsgBox "No se encontró el cliente", vbExclamation, "Resultado de la busqueda"
Adodc1.Recordset.MoveFirst
End If
End If
end sub

Muchas gracias ;)