Hello. IT. Have you tried to turn it off and on again?

Public Sub CreateXML()
    Dim cnn As ADODB.Connection
    Dim adoField As ADODB.Field
    Dim rst As ADODB.Recordset
    
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "f_lit", cnn ' Имя таблицы
    rst.MoveFirst
   
    Do  'бежим по строкам таблицы
        Set xmlParser = CreateObject("msxml2.DOMDocument")
        xmlParser.appendChild (xmlParser.createProcessingInstruction("xml", 
                                  "version='1.0' encoding='windows-1251'"))
        'корневая нода с id
        Set rootnode = xmlParser.appendChild(xmlParser.createElement("Item"))
        Set newAttr = xmlParser.createAttribute(rst.Fields(0).Name)
        newAttr.Value = rst.Fields(0).Value
        rootnode.setAttributeNode (newAttr)
        
        For i = 1 To rst.Fields.Count - 1 'бежим по полям записи
            Set subNode = rootnode.appendChild(xmlParser.createElement(rst.Fields(i).Name))
            subNode.Text = rst.Fields(i).Value
        Next i
     
        f_name = rst.Fields(0).Name + "_" + CStr(rst.Fields(0).Value) + ".xml"
        xmlParser.Save (f_name)
        rst.MoveNext
    Loop Until rst.EOF

    rst.Close
    Set rst = Nothing
    cnn.Close
    Set cnn = Nothing
End Sub