db name from odbc

I've an MDB file and i created an ODBC for that. I have to read the database name on which the ODBC is created thru code. I mean the physical path on the disk. rt now i've this code..

Code:

---

Dim db As Database
Private Sub Command1_Click()
Set db = OpenDatabase("", 0,0, "ODBC;DSN=testBiblio;UID=admin;PWD=;")
MsgBox db.Name
End Sub

---

but this doesn't seem to work..

how can i do this..would be helpful with a small code snippet.

thanx in adv.