急!! 数据库连接问题，请大家帮忙~~

[lovelyxiaoyu]

Sub ConnectDB()
On Error GoTo errMsg
Dim objPIOWrk As Workspace
Set objPIOWrk = DBEngine.CreateWorkspace("PIO", "Admin", "")
Dim strDBPath As String
strDBPath = pstrPioPath + "\temp\pio.mdb"
Set pObjPIODB = objPIOWrk.OpenDatabase(strDBPath)

Dim objTogouWrk As Workspace
Set objTogouWrk = DBEngine.CreateWorkspace("TOGOU", "Admin", "")
strDBPath = pstrPioPath + "\temp\togou.mdb"
Set pObjTogouDB = objTogouWrk.OpenDatabase(strDBPath)

errMsg:
GiveMSG ("018")
End
End Sub

该方法连接数据库总是出错，运行时走到，errMsg里了
请大家帮忙看一下问题出在哪里，谢谢了

[faysky2]

把 On Error GoTo errMsg注释掉，然后执行看是哪句出错

[lovelyxiaoyu]

to faysky2:
如果把On Error GoTo errMsg注释掉
程序走完 Set pObjTogouDB = objTogouWrk.OpenDatabase(strDBPath)句后接着进入errMsg段了
真是不知道是什么原因~~

[weiweiplay]

pObjPIODB 在哪儿定义的?
要new 出来

[lovelyxiaoyu]

to weiweiplay（虚幻）:
这个函数是在一个共同模块里， pObjPIODB 就是定义在该模块的，是个全局变量
定义如下：
Public pObjPIODB As Database
Public pObjTogouDB As Database
因为是接收值，不需要new吧

[lovelyxiaoyu]

没有人知道吗？
恳请大家帮帮忙

[vbman2003]

errMsg前面要加上一句：exit sub

[weiweiplay]

在系统运行时初始化

set pObjPIODB = new Database
set pObjTogouDB = new Database

[weiweiplay]

如果把On Error GoTo errMsg注释掉
程序走完 Set pObjTogouDB = objTogouWrk.OpenDatabase(strDBPath)句后接着进入errMsg段了
真是不知道是什么原因~~
-----------------------------------------------------
你没有Exit Sub 当然会走到errMsg里面去了

[lovelyxiaoyu]

真的是晕了
犯了这么低级的错误
谢谢家人和虚幻……
加上exit sub之后就OK了