Esto es suficiente no necesitas mas nada
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
'criterio1 = "ced_emp like '" & ced & "'"
criterio1 = "ced_emp like '" & cedula.Text & "'"
criterio = "ced_emp like '" & "08 035800357" & "'"
empleado.Find criterio
nombre.Text = empleado!no1_emp
apellido.Text = empleado!ap1_emp
ssocial.Text = empleado!seg_soc
