Visual Basic - ayuda por favor con esta busqueda

Private Sub CmdBuscar_Click()
Dim No_producto As String
DataEnvironment1.rsCommand2.MoveFirst
No_producto = InputBox("Escriba la Obra social a buscar")
If No_producto <> "" Then
DataEnvironment1.rsCommand2.Find "OBRA SOCIAL=" & No_producto
If DataEnvironment1.rsCommand2.EOF Then
MsgBox "No se encontró el pedido"
DataEnvironment1.rsCommand2.MoveFirst
End If
End If
End Sub

ALGUIEN ME PODRIA AYUDAR???? NOSE POR QUE ESTA BUSQUEDA NO ME ANDA PARA LOS String y si para los numeros...

Private Sub CmdBuscar_Click()
Dim No_producto As String
DataEnvironment1.rsCommand1.MoveFirst
No_producto = InputBox("Escriba el Nro de DNI del paciente a buscar")
If No_producto <> "" Then
DataEnvironment1.rsCommand1.Find "[DNI]=" & No_producto
If DataEnvironment1.rsCommand1.EOF Then
MsgBox "No se encontró el paciente"
DataEnvironment1.rsCommand1.MoveFirst
End If
End If
End Sub

eso si anda pero el de arriva no .... me dice:argumentos incorrectos, fuera del intervalo permitido o en conflictos con otros..

Utiliza el filter en vez del find
DataEnvironment1.rsCommand2.Filter= "OBRA SOCIAL=" & No_producto
if rsCommand2.Recordcount>0 then
has lo que quieras aca
else
msgbox "No se encuentra nada"
end if

set DataEnvironment1.rsCommand2.Filter=adfilternone

el error estaba en que faltaba los apostrofes....



Dim No_producto As String
DataEnvironment1.rsCommand2.MoveFirst
No_producto = InputBox("Escriba la Obra social a buscar")
If No_producto <> "" Then
DataEnvironment1.rsCommand2.Find "[OBRA SOCIAL]=' " & No_producto & " ' "
If DataEnvironment1.rsCommand2.EOF Then
MsgBox "No se encontró el pedido"
DataEnvironment1.rsCommand2.MoveFirst
End If
End If


muchas gracias por ayudarme la verdad que nose lo que es el filter ni como trabaja pero ya me pondre en accion para saberlo....

los apostrofes que le faltaban estan despues de el igual, y despues de no producto entre comillas por si a alguien le sirve....