Get list of reports for snapshot exportation automation (From vb6)

[Emitter]

Hello everybody :^)

Heres my problem.
I'm writing a VB6 app that uses the access objects to export repots with SNP. what I need is to find a collection/recordset/array to step through and get each report's name.

Tried these things:

Set RS = ConnectionObject.OpenSchema(acXXX)
' acXXX means I tried every resonable constant


Using ADOX to step through objects ;^)


Endlesly searched through the Access 9.0 object :^(

I really don't care how bizzarre the code anybody comes up with is O.K? API/DDE Whatever!

Emitter79@home.com

 

[Databaseguy]

Private Sub Find_Reports()
Dim DBS
Set DBS = CurrentDb()
Dim Doc
For Each Doc In DBS.Containers("Reports&quot.Documents
MsgBox Doc.Name 'Or whatever you want to do here...
Next Doc
End Sub