Database - Legge Tabelle Query DaDatabase

Tabelle # Dim dbscurrente As database, tdftable As tabledef, qdfquery As querydef
Dim db As database
Set db = workspaces(0).opendatabase("\protocol\protocollo.mdb")
Set dbscurrente = db
For Each tdftable In db.tabledefs
If Mid(tdftable.name, 1, 2) = "ms" Then
Print chr(9) & "tabella di sistema " & tdftable.name
Else
Print chr(9) & "tabella di servizio " & tdftable.name
End If
Next
' legge la query

For Each qdfquery In db.querydefs
Print chr(9) & "query di servizio " & qdfquery.name
Next