Visual Basic - ADODB

Dim empleado As New adodb.Recordset
Dim cargos As New adodb.Recordset
Dim solicitud As New adodb.Recordset
Dim db As New adodb.Connection
Dim vari As String
cedula.Text = ced
fentrega.MinDate = Date
fsolicitado.MinDate = Date
fsolicitado.MaxDate = Date
db.CursorLocation = adUseServer
db.Open "PROVIDER=MSDASQL;dsn=Siscat;uid=lbarrera;pwd=123;database=siscat;"

empleado.Open "select CED_EMP,SEG_SOC,NO1_EMP,AP1_EMP,SEXO,STA_EMP from empleado", db, adOpenStatic, adLockOptimistic
cargos.Open "select CED_EMP, num_emp, num_pla, sal_emp,tip_emp, fec_des from cargos_desempenados", db, adOpenDynamic, adLockOptimistic
solicitud.Open "select * from solicitudes", db, adOpenDynamic, adLockOptimistic

CED ES DE TIPO STRING

'criterio1 = "ced_emp like '" & ced & "'"

criterio1 = "ced_emp like '" & cedula.Text & "'" NO FUNCIONA PQ??

criterio = "ced_emp like '" & "08 035800357" & "'" FUNCIONA

empleado.Find criterio

nombre.Text = empleado!no1_emp
apellido.Text = empleado!ap1_emp
ssocial.Text = empleado!seg_soc

Hola, a mi en lo personal me marean un poco tantas comillas en los criterios (puede ser la tipografia). Yo si no busco una coincidencia exacta usaria * y si la busco usaria = en lugar de like. criterio1 = "ced_emp like '*" & cedula.Text & "*'"
No es ningun cambio sustancial pero si no lo probaste...
Suerte.