This is an Access example, but as far as I'm aware the only Access-specific 
feature I'm using is CurrentProject.Path, it should be easily adaptable to 
VB6 ...

Public Sub OpenXML()

    Dim rst As ADODB.Recordset

    Set rst = New ADODB.Recordset
    rst.Open CurrentProject.Path & "\test.xml"
    Do Until rst.EOF
        Debug.Print rst.Fields(0)
        rst.MoveNext
    Loop
    rst.Close

End Sub

-- 
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.

"Brad Ashforth" <BradAshforth@d...> wrote in message 
news:9C8D5080-3DFE-4AC6-A766-69D8FF937C21@m......
> Hello everyone. I am working on a project that must send new records (not
> updates) to a "main" system on a periodic basis. The "remote" system uses 
> VB6
> and ADO to retreive the tables and uses the "adoPersistXML" option to 
> output
> to XML. Once all of the tables are output we use a 3rd party tool to zip 
> them
> up for sending. This seems to work without problem. The issue seems to be 
> on
> the "receiving" end at the "main" system.
>
> We receive and unzip without problem. I just can't seem to find a way to
> read in the XML file into an ado recordset object, though I'm certain 
> there
> HAS to be an easy way to do this ... I just can't see it. I've read 
> through
> many posts in these forums and haven't seen a question like this ... most 
> are
> how to SAVE AS XML, not read in.  I've downloaded and installed MS XML4 
> but
> can't seem to figure that one out either.
>
> Thank you,
>
> Brad Ashforth
>