Tengo esto:
Código:
Set Db = OpenDatabase(App.Path & "\BDDR.mdb") Set reg = Db.OpenRecordset("SELECT NHISTORIA, FECHA," _ & "EDAD, CEDULA, SEXO, EDOCIVIL, NOMBRE, DOMICILIO, TELEFONO," _ & "LUGARNAC,MOTCONSULTA FROM PACIENTES ORDER BY NHISTORIA") If Not reg.EOF And Not reg.BOF Then txtNumHis.DataField = reg!NHISTORIA ' El campo de texto txtNumHis no toma End If ' el valor del registro