下面代码建了一个数据库,并添加了一个表
    Set DB = CreateDatabase(App.Path & "\1.mdb", dbLangChineseSimplified , dbVersion30)
    strSql = "CREATE TABLE [exam]([id] int NULL,[myanswer] MEMO NULL)"
    DB.Execute strSql