Visual Basic - busqueda de datos

Hola a todos
Necesito ubicar un registro mediante dos campos, uno es numerico y el otro caracter, estoy utilizandolas siguientes instrucciones, sin embargo me manda error, puede ayudarme por favor

Campos de la tabla
Numero es entero
N_diag es caracter

Variables
num_hosp numerico
FrmHosp.TxtNum(j).Text caracter


criterio = "Numero =" & num_hosp & " and n_diag =" & FrmHospDiagProcEgresoMovPac.TxtNum(j).Text

Hospitalizacion_Diagnosticos.Find criterio

Si estás usando SQL, cuando se compara un campo numérico se pone como vos lo hiciste, pero para un campo texto hay que encerrar el parámetro entre comillas simples, lo tuyo quedaría así:
-----------------------------------------------------------------------------
criterio = "Numero =" & num_hosp & " and n_diag = ' " & FrmHospDiagProcEgresoMovPac.TxtNum(j).Text & " ' "
-----------------------------------------------------------------------------
Hay un espacio entre la comilla simple y la doble que en realidad NO VA, lo puse porque acá se mezclaban las dos y no se veía bien.

Muchas gracias alberto, pero me sigue mandando el siguiente error

Error 3001 en tiempo de ejecución
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros

Hospitalizacion_Diagnosticos.MoveFirst
criterio = "Hospitalizacion =" & num_hosp & " and n_diag = '" & FrmHospDiagProcEgresoMovPac.TxtNum(j).Text & "'"

Hospitalizacion_Diagnosticos.Find criterio ***aqui manda el error***

Y si estoy trabajando con SQL

Agradesco tu ayuda

Prueba a poner en vez de Find, FindFirst

de que forma estan declaradas tus variables?
por ejemplo para tu variable numerica le puedes poner

dim num_hosp as int

y para la de texto

dim texto as string

Gracias chicos por su ayuda han sido de mucho provecho