Foros del Web - DataEnvironment Metodo FIND y EDIT

Hola otra vez :borracho: , ahora estoy intentando hacer una búsqueda de registros pero me marca un error, utilizo el metodo Find pero me sale el mensaje de "Argumentos no válidos ó fuera de rango", tengo dos comparaciones, si le kito una si funciona :'( , espero alguien pueda ayudarme.

Código PHP:

   Private Sub cmdBuscar_Click() ***********************

     buscado = InputBox("Por favor, teclee el el número de proyecto :")

     proy = buscado

     buscado = InputBox("Por favor, teclee el año :")

     año = buscado

     buscado = "[No_proy]=" & proy & "AND [Año]=" & año //Dos condiciones

    cmdPrimero_Click

    DataEnvironment1.Recordsets("Proyectos").Find (buscado) //Error

    If Not DataEnvironment1.rsproyectos.EOF Then

        MsgBox ("Se encontro el proyecto")

    Else

        MsgBox ("El proyecto no existe")

    End If

    cmdPrimero_Click

End Sub

Y otro problema k tengo es k cuando estoy en un registro como sería la instrucción para editarlo, pork tengo la siguiente pero no funciona. :patada:

Código PHP:

   Private Sub cmdEditar_Click() ****************

     DataEnvironment1.rsproyectos.EditMode

     Call PreparaInterfase

End Sub

Saludos:corazon: