Всем доброго времени суток! Есть задача редактировать записи в XML файле. Для начала нужно распарсить XML в таблицу.
КОД:

Dim DNs, dn
Dim MyPath$
Dim strSQL

MyPath = Me.txtSelectedName

strSQL = "DELETE * FROM backup"
    CurrentDb.Execute (strSQL)
     
     With CreateObject("MSXML2.DOMDocument")
        .async = False: .validateOnParse = False
        .Load MyPath

        Set DNs = .SelectNodes("//managedObject[@class='BTS']")
        For Each dn In DNs
        Debug.Print dn.getAttribute("distName")
        Next dn
                  ' При такой конфигурации вижу в immediate, все нужные записи из файла.    
        
    End With
' Если делаю импорт в таблицу то в ней, поле DN пустое
'strSQL = "Insert into backup (dn_bts) values ('" & dn & "')"
'CurrentDb.Execute (strSQL)

результат Debug.print в окне immediate:
[img src="https://i.ibb.co/ByGCJLR/image.png" alt="image" border="0"]

Если добавляю в таблицу вижу следующее:
[img src="https://ibb.co/WDNKCPt/image.png" alt="image" border="0"]

Вопрос:
Почему в таблицу не попадают найденные записи?
Пробовал перенести strSQL в конструкцию With, результат тот же.
Помогите пожалуйста разобраться.

https://www.sql.ru/forum/1314416/ne-dobavlyautsya-zapisi-v-tablicu