Bob,

I tried implementing your code and got the following error:

Error Source: Provider

Error Description: Error Code:0

Error Source = Provider

Error Description Type Mismatch

Error on Line 36

Type mismatch

Line 36 is:

objADORS.Filter = "Row_ID=""" &...

Here is the new code...

Monica

Function Main()

Dim objXMLDOM

Dim objNodes

Dim objBookNode

Dim objADORS

Dim objADOCnn

Dim prikey,keytest

Const adOpenKeyset = 1

Const adLockOptimistic = 3

Set objXMLDOM = CreateObject("MSXML2.DOMDocument.4.0")

objXMLDOM.async = False

objXMLDOM.validateOnParse = False

'No error handling done

objXMLDOM.load "c:\books.xml"

Set objNodes...

I think you are right. I made the change, but now when I execute the package, it seems to run an infinite loop and data keeps getting imported into my...