PapaDos,

I made the changes that you suggested and confirmed the results.
Thanks again.  That solution however presented another problem :-(

Using the same example database:

Name  Age Address
Bill      25   Ohio
Joe     30    New York
Mary   35    New Jersey

I want to run a macro to build a table in Word with the data:

Before having your tip, I used:

Sub BuildaTableinWordWithExcelData()
Dim myDB As Database
Dim myActiveRecord As Recordset
Dim i As Long
Dim j As Long
Dim dtable As Table, drow As Row
Set myDB = OpenDatabase("C:\myBook1.xls", False, False, "Excel 8.0")
Set myActiveRecord = myDB.OpenRecordset("mySSRange", dbOpenForwardOnly)
Set dtable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=1, numcolumns:=myActiveRecord.Fields.Count)
Set drow = dtable.Rows(1)
'Add the column header data.
For i = 1 To myActiveRecord.Fields.Count
   drow.Cells(i).Range.Text = myActiveRecord.Fields(i - 1).Name
Next i
Set drow = dtable.Rows.Add
'Populate the data
Do While Not myActiveRecord.EOF
   For i = 1 To myActiveRecord.Fields.Count
       drow.Cells(i).Range.Text = myActiveRecord.Fields(i - 1)
   Next i
   Set drow = dtable.Rows.Add
   myActiveRecord.MoveNext
Loop
drow.Delete
myActiveRecord.Close
myDB.Close
End Sub

Using your suggestion, I used:

Sub BuildaTableinWordWithExcelData()
Dim myDB As Database
Dim myActiveRecord As Recordset
Dim i As Long
Dim j As Long
Dim dtable As Table, drow As Row
Set myDB = OpenDatabase("C:\myBook1.xls", False, False, "Excel
8.0;HDR=NO")
Set myActiveRecord = myDB.OpenRecordset("mySSRange", dbOpenForwardOnly)
Set dtable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=1, numcolumns:=myActiveRecord.Fields.Count)
Set drow = dtable.Rows(1)
Do While Not myActiveRecord.EOF
   For i = 1 To myActiveRecord.Fields.Count
       drow.Cells(i).Range.Text = myActiveRecord.Fields(i - 1)
   Next i
   Set drow = dtable.Rows.Add
   myActiveRecord.MoveNext
Loop
drow.Delete
myActiveRecord.Close
myDB.Close
End Sub

When I first ran this code, I got a Runtime error: 94 "Invalid use of
Null" when the code tried to write the label "Age" in the first row.  I
suspected that this had something to do with mixed numbers and text in
the column and so I formatted column 2 as "Text" vice the default
"General."

This seems to work, but I was wondering if there was something that I
could put in the code above that would work around this error
automatically to avoid having to specifically set a format?

Thanks.