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