致命宠溺腹黑总裁小萌:VB中连接数据库的问题～大家帮个忙呀～谢谢了～

Public gCn As ADODB.Connection '数据库联接对象,整个应用程序公用一个连接
'目的:连接数据库
'输入
'返回:若数据库连接成功,返回True,不成功返回 False
Function gMainConn() As Boolean
Dim strCn As String
Dim strDatabasePath
On Error GoTo errCheck
Set gCn = New Connection
gCn.CursorLocation = adUseClient '当用于客户端 (ADOR) Recordset 或 Connection 对象时，只能将游标 CursorLocation 属性设置为 adUseClient用户连接
'取得数据库的相对路径
If Right(App.Path, 1) = "\" Then
strDatabasePath = App.Path + "data\jian.mdb"

Else
strDatabasePath = App.Path + "\data\jian.mdb"

End If
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" + strDatabasePath

gCn.Open strCn
gMainConn = True '若是连接成功则退出Function
Exit Function
errCheck:
gMainConn = False
MsgBox "数据库连接不成功,请确定路径是否正确!", , "小翠助手"
End Function
问题是～他老说Set gCn = New Connection中无效的New编译错误，我把New取掉后，就弹出”数据库连接不成功,请确定路径是否正确!",直接执行错误提示去了～请大家帮我看看呀～谢谢了～ 其中我已经把ADO2.8引用进来了～