用DataBase对象操纵Access数据库的问题~~

[lovelyxiaoyu]

Function ConnectDB() As Boolean
On Error GoTo errMsg
'ＤＡＯにてpio.mdbとの接続を行なう
Dim objPIOWrk As Workspace
Set objPIOWrk = DBEngine.CreateWorkspace("PIO", "Admin", "")
Dim strDBPath As String
strDBPath = "C：\pio.mdb"
Set pObjPIODB = objPIOWrk.OpenDatabase(strDBPath)

'ＤＡＯにてtogou.mdbとの接続を行なう
Dim objTogouWrk As Workspace
Set objTogouWrk = DBEngine.CreateWorkspace("TOGOU", "Admin", "")
strDBPath = "C：\togou.mdb"
Set pObjTogouDB = objTogouWrk.OpenDatabase(strDBPath)

'*********For Test*******
' Dim objMsgRs As Recordset
' Set objMsgRs = pObjTogouDB.OpenRecordset("SELECT * FROM T_MSG ")
' objMsgRs.MoveFirst
' Do While Not objMsgRs.EOF
' MsgBox (objMsgRs.Fields(1))
' objMsgRs.MoveNext
' Loop
'********* End For Test*******

ConnectDB = True
Exit Function
errMsg:
'接続に失敗した場合
ConnectDB = False
End Function

该函数定义在一个模块中，pObjPIODB 和 pObjTogouDB 是全局变量，声明如下：
'pio.mdbワークスペースオブジェクト
Public pObjPIODB As Database
'togou.mdbワークスペースオブジェクト
Public pObjTogouDB As Database
问题如下：
我把该函数的For Test段注释去掉后，发现可以顺利的读出表_MSG中的数据但是如果在窗体的Form_Load事件调用该函数后，接着在后面加上For Test段的代码，就发生异常（错误代码为3420）了，请问大家这是什么原因呢？

[faysky2]

怎么看不清楚啊
把For Test代码中的Dim objMsgRs As Recordset定义改一下试试：
Dim objMsgRs As New ADODB.Recordset'记得先引用ADO（Microsoft ActiveX Data Object 2.X Library）