Please help me get this code to work in access 2013

[obakeng]

Option Compare Database
Private Sub Form_Load()
    For i = 0 To CurrentDb.TableDefs.Count - 1
        If InStr(CurrentDb.TableDefs(i).Name, "MSys") = 0 Then
            cmbTable.AddItem (CurrentDb.TableDefs(i).Name)
        End If
     Next
End Sub
Private Sub xmlBtn_Click()
On Error GoTo Err_xmlBtn_Click
    Create_XML (cmbTable.Column(0))
Exit_xmlBtn_Click:
    Exit Sub
Err_xmlBtn_Click:
    MsgBox Err.Description
    Resume Exit_xmlBtn_Click
    
End Sub
Private Sub Create_XML(tableName)
   
    Dim Rs As Recordset
    
    Set Rs = CurrentDb.OpenRecordset("SELECT * FROM " & tableName, dbOpenSnapshot)
    If Rs.RecordCount > 0 Then
        Rs.MoveFirst
    
    Dim objDom As MSXML2.DOMDocument60
    Dim objRootElem As IXMLDOMElement
    Dim objMemberElem As IXMLDOMElement
    Dim objMemberName As IXMLDOMElement
   
        

    Set objDom = New MSXML2.DOMDocument60
   
    Set objRootElem = objDom.createElement(tableName)
    objDom.appendChild objRootElem
    
    Do While Not Rs.EOF
        Set objMemberElem = objDom.createElement("Claim")
        objRootElem.appendChild objMemberElem
       
        
        For i = 0 To Rs.Fields.Count - 1
            Set objMemberName = objDom.createElement(Rs.Fields(i).Name)
            objMemberElem.appendChild objMemberName
            objMemberName.Text = Rs.Fields(i).Value
            objMemberElem.appendChild objDom.createTextNode(vbCrLf)
        Next
    Rs.MoveNext
    Loop
    
    Rs.Close
   ' Saves XML data to disk.
   objDom.Save (CurrentProject.Path & "\" & tableName & ".xml")
   MsgBox "Table exported sucessfully."
   End If
End Sub

its giving me error user- defined type not defined, then highlight

 objDom As MSXML2.DOMDocument60

[orange]

Check your references to see if you have included
Microsoft XML, V6.0


I also recommend you have an Option Explicit as second line in each module.

[obakeng]

Thank you very much, I managed to get it working from youradvice.
I am new in access programing and so far I have managed tomake a working database, now my challenge is to transfer some invoices from myinvoice table to xml, which will now be emailed to a third party.
Now can I make this code to transfer a query instead of a table? In a query I will be able to filter whichdata I want to transfer. Also can it addadditional queries that have a relationship to the main query?
E.g.
Objrootelementwill be “ClaimBatch”
First objMemberElem will be “Batchheader” frombatchheader query
second objMemberElemwill be “Claim” from claim query
third objMemberElemwill be “line” from line query
forth objMemberElemwill be “Diagnosis” from diagnosis query
firth objMemberElemwill be “Batchtrailer” from batchtrailer query

All thisqueries will be having a common relationship of “Transactionno” which I can useas a filter in the form. So instead ofthe form selecting a table, I could be entering a transaction number then when Iclick on the button it produces an xml file