Non programma direttamente in Ms Access, quindi non so come puntare il DataBase stesso; in Vb6 farei così:
Dim WkTmp As Workspace
Dim dbC As Database
Dim Jt As Integer
Set WkTmp = Workspaces(0)
Set dbC = WkTmp.OpenDatabase("DB1.mdb")
For Jt = 0 To dbC.TableDefs.Count - 1
'escludo le tabelle di sistema
If (dbC.TableDefs(Jt).Attributes And dbSystemObject) = 0 Then
Debug.Print dbC.TableDefs(Jt).Name
End If
Next Jt
'questo per vedere eventuali Query
For Jt = 0 To dbC. QueryDefs.Count - 1
Debug.Print dbC.QueryDefs(Jt).Name
Next Jt
dbC.Close
Set dbC = Nothing
Set WkTmp = Nothing
Dove DB1.mdb è il DataBase da gestire