Código:
He intentado varias formas y ninguna me ha salido. For Each x In frm_empleados
On Error Resume Next
Set x.DataSource = RSempleados
Next
With frm_empleados
.txtnombres.DataField = "nom_empl"
.txtapellidos.DataField = "apellidos_empl"
.txtcargo.DataField = "cargo_empl"
.txtdni.DataField = "dni"
.txtobservaciones.DataField = "observaciones"
'Aqui viene el código que no me aparece
'.pctfoto.Picture = "foto"
End With

