How to fetch table names

[peet]

Private Sub Command1_Click()
    Dim db As Database
    Dim tDef As TableDef
    Dim i As Integer
    Set db = OpenDatabase("C:\test.mdb")
    For Each tDef In db.TableDefs
        Debug.Print "Table : " & vbTab & tDef.Name
        For i = 0 To tDef.Fields.Count - 1
            Debug.Print "Field : " & vbTab & vbTab & tDef.Fields(i).Name
        Next i
    Next tDef
End Sub