Selecting certain XML elements

<Article Created="16:01:59" ID="15105602">
   <Heading>Equitable drops claim against former directors</Heading> 
   <Date>02/12/2005</Date> 
  <Contents>
   <news story goes in here> 
   </Contents>
  <Categories>
    <Category ID="430009725">Finance</Category> 
   <Category ID="430009734">Economy</Category> 
   <Category ID="430009735">Business</Category> 
    <Category ID="438000159">Insurance</Category> 
  </Categories>
</Article>

Dim XMLDom
Dim ItemID
Dim DbConn
Dim SQLString
Dim ANArticleNode
Dim CollectionOfArticleNodes
Dim cst
Set XMLDom = CreateObject("MSXML2.DomDocument.4.0")
XMLDom.async = False
XMLDom.setProperty "ServerHTTPRequest", True
Set DbConn = Createobject("adodb.connection")
'DbConn.open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=pokernewsxml; OPTION=3"
DbConn.open "Driver={MySQL ODBC 3.51 Driver};" & _ 
        "Server=82.195.128.88;" & _ 
        "Database=johnfog_xml;" & _ 
        "Uid=johnfog_xml;" & _ 
        "Pwd=wordword;"

'-- Load the XML data from your live URL
XMLDom.Load("http://feeds.directnews.org.uk/?ad96...2-ad546b2ed850") 
'-- Create a reference to a collection of all Article Tags within the downloaded XML Document
Set CollectionOfArticleNodes = XMLDom.SelectNodes("InfoStreamResults/Article")
'-- Iterate the collection of Article Tags 
For Each ANArticleNode in CollectionOfArticleNodes 
 ItemID = ANArticleNode.SelectSingleNode("@ID").text
 Heading = ANArticleNode.SelectSingleNode("Heading").text 
 Contents = ANArticleNode.SelectSingleNode("Contents").text
 sDate = ANArticleNode.SelectSingleNode("Date").text
 '-- Delete the item from the local database if it exists
 SQLString = "DELETE FROM DeHavillandNews WHERE trim(ItemID)='" & trim(ItemID) & "';"
    DbConn.Execute(SQLString)
 
 '-- Insert the item into the local database
 SQLString = "INSERT INTO DeHavillandNews (ItemID,Heading,Contents,strDate) " _
    & "VALUES('" & ItemID & "','" & EncodeIt(Heading) & "','" & EncodeIt(Contents) & "', '" & sDate & "');" 
 DbConn.Execute(SQLString) 
 
Next
 
'-- Handles quotations in text
Function EncodeIt(TextString)
 TextString = Replace(CStr(TextString), "''", "'")
 TextString = Replace(TextString, "'", "''")
 EncodeIt = TextString
End Function

Dim XMLDom
Dim ItemID
Dim DbConn
Dim SQLString
Dim ANArticleNode
Dim ANArticleNode2
Dim CollectionOfArticleNodes
Dim CollectionOfArticleNodes2
Dim cst
Set XMLDom = CreateObject("MSXML2.DomDocument.4.0")
XMLDom.async = False
XMLDom.setProperty "ServerHTTPRequest", True
Set DbConn = Createobject("adodb.connection")
DbConn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=test1.mdb"
'-- Load the XML data from your live URL
XMLDom.Load("http://feeds.directnews.org.uk/?ad96...2-ad546b2ed850") 
'-- Create a reference to a collection of all Article Tags within the downloaded XML Document
Set CollectionOfArticleNodes = XMLDom.SelectNodes("InfoStreamResults/Article")
'-- Iterate the collection of Article Tags 
For Each ANArticleNode in CollectionOfArticleNodes 
 '-- Now create a reference to the category tag
 Set CollectionOfArticleNodes2 = ANArticleNode.SelectNodes("Categories/Category")
 '-- And iterate through the nodes to test for a match
 For Each ANArticleNode2 in CollectionOfArticleNodes2
  ItemID = ANArticleNode2.SelectSingleNode("@ID").text
  if ItemID = "430009735" then
   '-- Retrieve the value of the heading node from the current article
   Heading = ANArticleNode.SelectSingleNode("Heading").text
 
   '-- Insert the item into the local database
   SQLString = "INSERT INTO test (Heading) " _
   & "VALUES('" & EncodeIt(Heading) & "');" 
   DbConn.Execute(SQLString) 
  end if
 Next '-- check the next category ID
Next '-- move to the next article
'-- Handles quotations in text
Function EncodeIt(TextString)
 TextString = Replace(CStr(TextString), "''", "'")
 TextString = Replace(TextString, "'", "''")
 EncodeIt = TextString
End Function
%>