DataField con DAO

[oswaldog]

Saludos, sabe alguien como relacionar un textbox con un campo de una BD usando DAO.

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