read from xml file into a word document table

Sub testrst()
  Dim rst As Object
  Dim objDT As clsDataTable
  
  Set rst = CreateObject("ADODB.Recordset")
  rst.Open "C:\Emp.Xml"
  
  Set objDT = New clsDataTable
  
  objDT.CopyFromRecordset rst, ActiveDocument.Range
  
  Set objDT = Nothing
  rst.Close
  Set rst = Nothing
End Sub

Private mblnWriteHeader As Boolean

Private Sub Class_Initialize()
  mblnWriteHeader = True
End Sub

Public Function CopyFromRecordset(Recordset As Object, Range As Range)
  Dim tblNew As Table, rowNew As Row
  Dim lngColumn As Long, lngRow As Long
  If TypeName(Recordset) <> "Recordset" Then
    Exit Function
  End If
  If Recordset.State = 0 Then
    '0 should be closed for both ADO & DAO
    Exit Function
  End If
  lngColumn = Recordset.Fields.Count
  Set tblNew = ThisDocument.Tables.Add(Range, 1, lngColumn)
  Set rowNew = tblNew.Rows(1)
  For lngColumn = 1 To lngColumn
    rowNew.Cells(lngColumn).Range.Text = Recordset.Fields(lngColumn - 1).Name
  Next lngColumn

  While Not Recordset.EOF
    Set rowNew = tblNew.Rows.Add
    For lngColumn = 1 To Recordset.Fields.Count
      rowNew.Cells(lngColumn).Range.Text = Recordset.Fields(lngColumn - 1)
    Next lngColumn
    Recordset.MoveNext
  Wend
  
  Set rowNew = Nothing
  Set tblNew = Nothing
End Function

Public Property Get WriteHeader() As Boolean
  WriteHeader = mblnWriteHeader
End Property

Public Property Let WriteHeader(ByVal blnNewValue As Boolean)
  mblnWriteHeader = blnNewValue
End Property