Get the ConnectionString of a CR-Report

I connect my CR-Reports via ADO with a database. In my VB-Prog I have to get the Tables my Report is working on and read a view Records out. If I try it this way


dim f as DatabaseFieldDefinition
f = db.tables(1).fields(1)
debug.print f.value




I get an access-denied error.
But i have to read the field and work with its data! So I thought I should open the Database via ADO. But at runtime I don't know the Name of the database worked at. Is there any possibility to get the Connection String who is used by the Report?

Thanks

Akademos