Sub tblname()
    Dim dao As Object, db As Object, tdf As Object

    Set dao = CreateObject("DAO.DbEngine.36")
    Set db = dao.OpenDatabase("C:\TEMP\МояБД.mdb")

    For Each tdf In db.tabledefs
        Debug.Print tdf.Name
    Next
End Sub