...
Imports Access
Imports DAO
 
...
Dim obj_AccessApplikation AS Access.Application
obj_AccessApplikation.LoadCurrentDatabase("C:\mydb.mdb")
 
...
For i = 1 to obj_AccessApplikation.CurrentDb.Properties.Count
       Console.WriteLine("Property: " & _
         obj_AccessApplikation.CurrentDb.Properties(i - 1).Name & " = " & _
         obj_AccessApplikation.CurrentDb.Properties(i - 1).Value)
Next i
...