HTML формат

Привет, кто что подскажет.
Есть база, в ней хранится описание товара, которое используется для импорта описания на сайт компании, хотелось бы его - это описание использовать так же и в повседневной жизни, ну что бы не лезть в интернет и не гонять трафик :) к примеру можно использовать при выводе ценника на товар

<table class="striped techpars">
									<tr>
										<th>
											Тип
										</th>
										<td>
												Шнур сетевой EURO
											</td>
									</tr>
								
									<tr>
										<th>
											Длина
										</th>
										<td>
												1.5 м
											</td>
									</tr>
								
							</table>

каким образом эти данные можно вывести в форме или в отчёте? ну что бы как в www.

Ну используй WebBrowser Control, например...

User_New_Nov,

Sub test()
    Dim xml As MSXML2.DOMDocument
    Dim v
    Dim i As Long
    
    Const s = "<table class=""striped techpars"">" & _
                                    "<tr>" & _
                                        "<th>" & _
                                            "Тип" & _
                                        "</th>" & _
                                        "<td>" & _
                                                "Шнур сетевой EURO" & _
                                            "</td>" & _
                                    "</tr>" & _
                                    "<tr>" & _
                                        "<th>" & _
                                            "Длина" & _
                                        "</th>" & _
                                        "<td>" & _
                                                "1.5 м" & _
                                            "</td>" & _
                                    "</tr>" & _
                            "</table>"
    Set xml = CreateObject("MSXML2.DOMDocument")
    If xml.loadXML(s) Then
        For i = 0 To xml.selectNodes("/table/tr/th").length - 1
            Debug.Print xml.selectNodes("/table/tr/th/text()").Item(i).Text, xml.selectNodes("/table/tr/td/text()").Item(i).Text
        Next
    End If
    Set xml = Nothing
End Sub

Тип           Шнур сетевой EURO
Длина         1.5 м

HTML,,

с WebBrowser Control всё понятно, размещаем на форме контрол и передаём в него значение.
А как применить код:

Sub test()
    Dim xml As MSXML2.DOMDocument
    Dim v
    Dim i As Long
    
    Const s = "<table class=""striped techpars"">" & _
                                    "<tr>" & _
                                        "<th>" & _
                                            "Тип" & _
                                        "</th>" & _
                                        "<td>" & _
                                                "Шнур сетевой EURO" & _
                                            "</td>" & _
                                    "</tr>" & _
                                    "<tr>" & _
                                        "<th>" & _
                                            "Длина" & _
                                        "</th>" & _
                                        "<td>" & _
                                                "1.5 м" & _
                                            "</td>" & _
                                    "</tr>" & _
                            "</table>"
    Set xml = CreateObject("MSXML2.DOMDocument")
    If xml.loadXML(s) Then
        For i = 0 To xml.selectNodes("/table/tr/th").length - 1
            Debug.Print xml.selectNodes("/table/tr/th/text()").Item(i).Text, xml.selectNodes("/table/tr/td/text()").Item(i).Text
        Next
    End If
    Set xml = Nothing
End Sub

что то не въеду, к примеру его нужно применить в отчёте, вывести данные этой таблицы в отчёт в некое поле Descr, командай me.Descr=test ничего не получается, подскажите....

Непонятен мне XML, подскажите, будьте людьми.
К примеру в форме есть список с полями Параметр;Значение как передать туда данные никак ни могу понять
видимо надо использовать что то вроде Me!Список.RowSource = значения.