ADB操作多功能模块

创建不了表所以小小的修改了，分享给有用的人。
文本 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 文件名 ＋ 选择 (是否为空 (密码), “”, “;Jet OLEDB:Database Password=” ＋ 密码)
.如果 (对象.创建 (“Adodb.Connection”, ) ＝ 假)
返回 (假)
.否则
对象.方法 (“Open”, 文本)
.如果 (是否为空 (字段名))
对象.对象型方法 (“Execute”, “DROP TABLE ” ＋ 表名) ' 删除表
.否则
对象.对象型方法 (“Execute”, “ALTER TABLE [” ＋ 表名 ＋ “] DROP COLUMN [” ＋ 字段名 ＋ “]”) ' 删除字段