做了在数据中建一个字段的宏,数据库是access。昨天还可以运行,今天就不行了,报第一句的编译器错误500,说cn变量没有定义。是什么问题啊?
Sub DB()
Set cn = CreateObject("Adodb.Connection")
strCn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\wang.mdb"
cn.Open strCn
cn.Execute("alter table tick add tdate date")
cn.close
End Sub