Visual Basic - USO DE FINDFIRST

que tal!!. necesito ayuda estoy tratando de desarrollar una consulta doble con el uso de FINDFIRST pero mi consulta no funciona este es el codigo:

With registro_12

COnSULTA = "NUMERO ='" & ORD22 & " '" And "CODIGO =" & COD1 & ""
.FindFirst COnSULTA
If Not .NoMatch Then
DDD = !STOCK
end if
end with

las variables ORD22 Y COD1 son numeros.

gracias a quien me ayude

ENTIENDO QUE LA CONCATENACION DE VALORES COMO ESTE:
COnSULTA = "NUMERO ='" & ORD22 & " '" And "CODIGO =" & COD1 & ""

NO DEBERIA INCLUIR VALORES NUMERICO A NO SER QUE HAYAN SIDO CONVERTIDOS A STRING(CADENA) PARA DE ESA FORMA PODER FORMAR UNA CADENA REAL .
SUERTE