dim objADOCnn, Set objADOCnn = CreateObject("ADODB.Connection") dim strConnectionStr strConnectionStr = "DRIVER={SQL Server};SERVER=***;UID=***;PWD=****;" objADOCnn.Open strConnectionStr dim oXMLDoc, myXMLQuery set oXMLDoc = CreateObject("Msxml2.DOMDocument") oXMLDoc.async = false myXMLQuery = "http://your.xmlsource.com/document.xml" if oXMLDoc.load(myXMLQuery) then 'Do something with your xml data objADOCnn.execute("updateData '" & oXMLDoc.xml & "'") else 'Error... No News Data Retrieved end if set oXMLDoc = nothing objADOCnn.Close set objADOCnn = nothingThis sould get you started.