\r\nSub LoadXML(ByVal FileName As String)\r\nOn Error GoTo ErrExit\r\nDim rsResp As DAO.Recordset\r\nDim rsRespAction As DAO.Recordset\r\nDim rsRespFields As DAO.Recordset\r\nDim xmlDoc As MSXML2.DOMDocument\r\nDim xmlNodeList As MSXML2.IXMLDOMNodeList\r\nDim xmlNode1 As MSXML2.IXMLDOMNode\r\nDim xmlNode2 As MSXML2.IXMLDOMNode\r\nDim xmlNode3 As MSXML2.IXMLDOMNode\r\nDim xmlAttribut As MSXML2.IXMLDOMAttribute\r\nDim MaxCount&\r\nWith CurrentDb \'\r\n    Set rsRespAction = .OpenRecordset("select * from tblRespAction")\r\n    Set rsRespField = .OpenRecordset("select * from tblRespField")\r\n    End With\r\ntStart = Now()\r\n    Set xmlDoc = CreateObject("MSXML2.DOMDocument")\r\n    xmlDoc.async = False\r\n    If Not xmlDoc.Load(FileName) Then\r\n        MsgBox "Ошибка" & Err.Number & Err.Description, vbCritical\r\n        End\r\n    End If\r\n