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
(
Read more... )