mdbのバージョンを取得

VB Tips And Sample（HOME）＞(戻る)

Private　Sub　Command1_Click()

　　　　Dim　db　As　DAO.Database
　　　　Dim　tdf　As　DAO.TableDef
　　　　Set　db　=　OpenDatabase(App.Path　&　"\db1.mdb")
　　　　Debug.Print　db.Version
’取得したバージョンはdao.chmのVersion変換表を参考に読み替えます。　　　　
　　　　
End　Sub