Anzahl von Berichten in externer Datenbank ausgeben.

[Bastian Sturank]

Servus

Ich schreibe gerade eine Funktion für eine Taste in der "base.mdb"
Nun möchte ich, dass die Funktion die Anzahl der existierenden
Berichte aus "daten.mdb" liesst und mir ausgibt.
(gut wäre noch eine Liste der Namen der Berichte)

Dim adoConn As New ADODB.Connection
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & "daten.mdb"
adoConn.ConnectionString = strConn
adoConn.Open

Dim dbs As Object
Set dbs = Application.CurrentProject
MsgBox dbs.AllReports.Count

adoConn.Close

obwohl daten.mdb mehrere Berichte besitzt wird mir der Wert 0 ausgegeben.
(Die Berichte sind übrigens auf sichtbar gesetzt!)
ich arbeite mit MS-Access 2002

Vielen Dank für eure Hilfe