Работа с xml: организовать поиск по его структуре и запоминать некоторые значения в БД - VB

Формулировка задачи:

Доброго времени всем Интересует ответ на следующий вопрос: Есть xml файл, нужно организовать поиск по его структуре и запоминать некоторые значения в БД. Думаю что это не очень сложно, вот помогли бы разобраться! Заранее благодарю.

Решение задачи: «Работа с xml: организовать поиск по его структуре и запоминать некоторые значения в БД»

textual
                            Листинг программы 
                        

                            xmlDoc.Load (inpPut + inpLastPut) 
    xmlDoc.setProperty "SelectionLanguage", "XPath"
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    Dim arrUdg_iv(1 To 24) As String
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 1]")
    arrUdg_iv(1) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 2]")
    arrUdg_iv(2) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 3]")
    arrUdg_iv(3) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 4]")
    arrUdg_iv(4) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 5]")
    arrUdg_iv(5) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 6]")
    arrUdg_iv(6) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 7]")
    arrUdg_iv(7) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 8]")
    arrUdg_iv(8) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 9]")
    arrUdg_iv(9) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 10]")
    arrUdg_iv(10) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 11]")
    arrUdg_iv(11) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 12]")
    arrUdg_iv(12) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 13]")
    arrUdg_iv(13) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 14]")
    arrUdg_iv(14) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 15]")
    arrUdg_iv(15) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 16]")
    arrUdg_iv(16) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 17]")
    arrUdg_iv(17) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 18]")
    arrUdg_iv(18) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 19]")
    arrUdg_iv(19) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 20]")
    arrUdg_iv(20) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 21]")
    arrUdg_iv(21) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 22]")
    arrUdg_iv(22) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 23]")
    arrUdg_iv(23) = objNode.childNodes.Item(4).Text
    Set objNode = xmlDoc.selectSingleNode("/dvc/hour[position() = 24]")
    arrUdg_iv(24) = objNode.childNodes.Item(4).Text
    Set xmlDoc = Nothing
    Set objNode = Nothing
                        