Visual Basic - criterios incorrecto

Mi pregunta es la siguiente: mi error dice que no coniciden los tipos de datos en la expresion.
Y este es el codigo :
Private Sub ModuloOCCombustible()
Dim NumOC As Long
rstNumOC = Trim(Text1.Text)
If IsNumeric(rstNumOC) = False Then
MsgBox "Solamente Numeros"
Exit Sub
End If
NumOC = Val(Trim(Text1.Text))

With rstOrdenCompra
' .MoveLast

.FindFirst "NumeroOC = '" & NumOC & "' " <-- Este es el error ya mensionado

por favor que alguien me ayude

Atte.,

Juan Gonzalez Alcayaga
Antofagasta

A MI ME PARECE QUE EL ERROR ESTA EN LA CADENA DE CRITERIO DE BUSQUEDA DEL METODO FINDFIRST
FindFirst "NumeroOC = '" & NumOC & "' "
TAL VEZ DEBERI SER ASI
FindFirst "NumeroOC = ' " & NumOC & "' "
OSEA ADICIONANDO EL VALOR ' DESPUES DE NumeroOC =, PARA QUE EL METODO VALIDE TODO EL VALOR NUMERICO.
SI NO FUNCIONA ESTO PODRIA SE POR EL TIPO DE VARIABLE QUE DECLARASTE (LONG), HABRIA QUE PROBARLOS CON OTRAS,
NO PUEDO ORIETNTARTE MAS YA QUE NO CUENTO CON LA BD, NI EL FORMULARIO PARA HACER LAS PRUEBAS CORRESPONDIENTES.
SI PERSISTE TU PROBLEMA ENVIAME EL RPOYECTO Y TRATARE DE DARTE UNA MANO.
SUERTE