Exporting Data to Word and Formatting Tables (1 Viewer)

[Starman]

I am trying to export data to Word and convert it into tables. Using code from an example by Pat Hartman, I put the following together. This works great except I would like each individual record to be its own table instead of one giant table, but I am stuck on exactly how to get that. Can someone give me a hand?

    Set db = CurrentDb()
    Set qdDAO = db.QueryDefs("qryIncidentSuspect")
        qdDAO.Parameters![EnterIncidentID] = lngIncidentID
    Set rsDAO = qdDAO.OpenRecordset
    
    strSuspectTable1 = ""
    
    If rsDAO.EOF Then
    Else
        intSeqNum = 0
        Do While rsDAO.EOF = False
            intSeqNum = intSeqNum + 1
            strSuspectTable1 = strSuspectTable1 & "Last Name" & vbTab & "First Name" & vbTab & "MI" & vbTab & "Gender" & vbTab & "DOB" & vbTab & "" & vbCr
            strSuspectTable1 = strSuspectTable1 & rsDAO!LastName & vbTab & rsDAO!FName & vbTab & rsDAO!Init & vbTab & _
                                rsDAO!Gndr & vbTab & rsDAO!DOB & vbCr
            strSuspectTable1 = strSuspectTable1 & "Height" & vbTab & "Build" & vbTab & "Hair" & vbTab & "Eyes" & vbTab & _
                                "Race" & vbTab & "" & vbCr
            strSuspectTable1 = strSuspectTable1 & rsDAO!Hgt & vbTab & rsDAO!Bld & vbTab & rsDAO!Hair & vbTab & _
                                rsDAO!Eye & vbTab & rsDAO!Rce & vbCr
            strSuspectTable1 = strSuspectTable1 & "Address" & vbTab & "City" & vbTab & "State" & vbTab & "Zip" & vbTab & "Home Phone" & vbTab & _
                                "Mobile Phone" & vbCr
            strSuspectTable1 = strSuspectTable1 & rsDAO!Address & vbTab & rsDAO!Cty & vbTab & rsDAO!State & _
                                vbTab & rsDAO!Zip & vbTab & rsDAO!HPhone & vbTab & rsDAO!CPhone & vbCrLf
            rsDAO.MoveNext
        Loop
    End If

    If strSuspectTable1 <> "" Then
        strSuspectTable1 = Left(strSuspectTable1, Len(strSuspectTable1) - 1)
        Set rngSuspect = objWord.Bookmarks("Suspects").Range
        rngSuspect.Text = strSuspectTable1 & ""
        rngSuspect.Select
    End If
    
    Set objTable = objWordApp.Selection.ConvertToTable(Separator:=vbTab)
    
    objTable.AutoFormat Format:=wdTableFormatList4, AutoFit:=True