想实现如下功能，鼠标动作按钮后，打开access数据库，往表里加一行操作记录。我写的代码如下。
Sub OnClick(ByVal Item)
Dim objCnn,objRs
Dim objtchq1,objcmdchq1
Set objtchq1=ScreenItems("chq1")
Set objcmdchq1=ScreenItems("MQD1")
Set objCnn = CreateObject("ADODB.Connection")
Set objRs = CreateObject("ADODB.Recordset")
objCnn.Provider="Microsoft.Jet.OLEDB.4.0"
objRs.Open "d:\BTCHCKCO\BTCHCZJL.mdb"

objRs.Open "GL1CHCZJL",objCn,adOpenDynamic,adLockOptimistic
With objRs
.AddNew
.Fields(0).value=FormatDateTime(Now,1)
.Fields(1).value=FormatDateTime(Now,3)
.Fields(2).value="CHXTCZ"
.Fields(3).value=objtchq1.Text & objcmdchq1.Text
End With
objRs.Update
objRs.Close
Set objRs=Nothing
objCnn.Close
Set objCnn=Nothing
End Sub
但是，我发现对象objCnn，objRs并没有建立，因为我用objCnn.时，其属性并没有自动弹出，我不知道对象建立后应用该对象的属性时，属性是否自动弹出？别的对象属性都自动弹出。但我看参考书这样写的。我不知道应用ADO连接数据库还需要引用吗？急盼回复