Ac上的VBA语法错误消息
在此完成VBA新手：我正在学习有关连接到Access的autodesk教程。本教程的一部分是以下代码：
公共工作区
公共dbsObj As数据库
公共tblObj作为TableDef
公共fldObj As字段
公共rstObj作为记录集
私有子命令按钮1\u Click（）
出错时继续下一步
设置wksObj=DBEngine。工作区（0）
设置dbsObj=wksObj！CreateDatabase（“mydbase.mdb”，dbLangGeneral）
设置tblObj=dbsObj！CreateTableDef（“mytable”）
带tblObj
.领域。追加CreateField（“text”，dbText）
.领域。追加CreateField（“integer”，dbInteger）
.领域。追加CreateField（“long”，dbLong）
.领域。追加CreateField（“double”，dbDouble）
.领域。追加CreateField（“boolean”，dbBoolean）
.领域。追加CreateField（“memo”，dbMemo）
.领域。追加CreateField（“货币”，dbCurrency）
.领域。追加CreateField（“日期”，dbDate）
以结束
dbsObj。TableDefs。附加tblObj
dbsObj。TableDefs。刷新
末端接头
私有子命令按钮2\u Click（）
出错时继续下一步
设置dbsObj=DBEngine。工作区（0）。OpenDatabase（“mydbase.mdb”）
设置rstObj=dbsObj。OpenRecordset（“mytable”，dbOpenTable）
rstObj。添加新的
rstObj！Text=“文本值”
rstObj！整数=1
rstObj！双=3.1415926
rstObj！布尔值=True
rstObj！货币=“$4240.54”
rstObj！日期=“2/10/00”
rstObj。使现代化
rstObj。闭集dbsObj=Nothing
末端接头
私有子命令按钮3\u Click（）
卸载我
末端接头
命令按钮2（以红色粗体突出显示）的最后一行代码中出现语法错误
我得到的错误是：编译错误/语法错误。
谁能告诉我语法错误是什么？我假设这与关闭dbsObj并将其设置为nil有关。
谢谢
AJS公司 它可能很简单：
rstObj。关
设置dbsObj=Nothing
换句话说，将每个语句放在单独的一行。 就是这样。。。
非常感谢。
页:
[1]