动态创建一个ACCESS数据库，动态创建access的代码是这样的，当窗体激活时执行下列代码自动创建数据库： 　　DimmyDBAsDAO.Database 　　SetmyDB=DAO.Workspaces(0).CreateDatabase("mydb.mdb",dbLangGeneral) 　　Dimstr_SQLAsString 　　str_SQL="CreateTableNewTable1(Field1Text(10),Field2Short)" 　　myDB.Executestr_SQL 　　str_SQL="CreateT