实在不会了，各位教我怎么改，谢谢了！

Question

请问，这里是哪里除问题了，该怎么改？谢谢！
Private Sub InitConnectObject()
    Dim objUtility As epUtility
    Dim strCNStr As String
    Dim strPath As String   
    On Error GoTo ErrorHandler
     strPath = App.Path
    If Right(strPath, 1) = "\" Then
        strPath = Left(strPath, Len(strPath) - 1)
    Else
    End If
     strCNStr = "Provider=Microsoft.Jet.OLEDB.3.51;Password="""";Persist Security Info=True;Data Source=" & strPath & "\Epinfo2.mdb"
    Set gadoCN = New ADODB.Connection
    gadoCN.ConnectionString = strCNStr
    gadoCN.Open
    gConnString = strCNStr
CommonExit:
    If Not (objUtility Is Nothing) Then Set objUtility = Nothing
    On Error GoTo 0
    Exit Sub 
ErrorHandler: 
    If Not (objUtility Is Nothing) Then Set objUtility = Nothing
    Err.Raise Err.Number 
End Sub

Answer 1

what is the error msg?

Answer 2

'On Error GoTo ErrorHandler 注掉这一句。看看调试时的错误提示是什么。

Answer 3

这句本来就是出错时，ErrorHandler事件响应啊，如果没有错误它是没有影响的啊

Answer 4

把这一句去掉看看：On Error GoTo 0

Answer 5

将连接字符串改成：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WORK\VendorPrice.mdb;Persist Security Info=True

Answer 6

试过了，正常的引用了ADO库后，其它语句就没有错应该是
Dim objUtility As epUtility 这句产生错误了我引用自己写的一个类库，没有错程序从
On Error GoTo 0
Exit Sub 
正常结束可能你对 epUtility 的引用有错误，具体要看你的错误提示了

Answer 7

我想也可能是这里出错了，这句本来是用在和SQL sever数据库的连接上的，但我后来把数据库换成Access了，所以我就只把路径改了。但在我的机器上一切运行都OK，换到有些机器上就说数据库连接不到了~