You will find the basics in the last of the following series of articles:

Please Fill Out This Form
Part 1: Create professional looking forms in Word
http://www.computorcompanion.com/LPMArticle.asp?ID=22

Part 2: Adding Automation to your Word forms.
http://www.computorcompanion.com/LPMArticle.asp?ID=46

Part 3: Learn more VBA (macros) to automate your forms.
http://www.computorcompanion.com/LPMArticle.asp?ID=119

Part 4: Use custom dialog boxes in your Word forms
http://www.computorcompanion.com/LPMArticle.asp?ID=127

Part 5: Connect your AutoForm to a database to save input time and keep
better records!
http://www.computorcompanion.com/LPMArticle.asp?ID=136

Hi Brad:

What you need to do is to use UserForms where the data is uploaded to
UserForm fields, then you use DAO to transfer the data onto a backend
database.

For example, in a UserForm_Initialize() event you might have something like
this to bring up a date from an ActiveForm's date field:

[schDate] = ActiveDocument.Tables(3).Cell(myRow,
ActiveDocument.Tables(3).Columns.Count - 1).Range.FormFields(1).Result

After you pull up all the information, you can do this to send the
information to the underlying table:

Set db = OpenDatabase(conDBpath2)
Set rs = db.OpenRecordset("SELECT Demographics.* FROM Demographics;",
dbOpenDynaset)
   With rs
       .MoveLast
       .AddNew
        ![Last] = IIf(IsNull([LNAME]) Or Len([LNAME]) = 0, ".", [LNAME])
        ![First] = IIf(IsNull([FNAME]) Or Len([FNAME]) = 0, ".", [FNAME])
        ![ChartID] = IIf(IsNull([ACCT]), 0, [ACCT])
        ![BirthDate] = IIf(IsNull([DOB]) Or Len([DOB]) = 0, #1/1/1911#,
[DOB])
        .Update
        .Close
        db.Close
   End With

That's all there is to it.

Cheers,
Al