ado连接问题

[moyue]

Option Explicit
Public cn As New ADODB.Connection
Public Function DBConnect1() As Boolean

On Error GoTo OpenErr

Dim MSDatabase



cn.ConnectionString = "uid=admin;pwd=;DRIVER={Microsoft Access Driver (*.mdb) };DBQ=" & App.Path & "\Data\WNFMail.mdb"
Debug.Print cn.ConnectionString
cn.Open

DBConnect1 = True
Exit Function

OpenErr:

MsgBox "Error Opening " & MSDatabase & vbNewLine & Err.Description, vbCritical, "Open Database Error"
DBConnect1 = False


End Function

为是么我用这种方法连接时总是出现一下错误啊。
工作组信息文件丢失或已被其他用户已独占方式打开。我的access数据库在本地。但我用下面的代码连接时就没有这种问题。

Public cn As ADODB.Connection
Public Function DBConnect() As Boolean

On Error GoTo OpenErr

Dim MSDatabase

Set cn = New ADODB.Connection

MSDatabase = App.Path & "\" & "Data" & "\" & "WNFMail.mdb"
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Debug.Print MSDatabase
cn.Open MSDatabase, Admin, 1980
DBConnect = True
Exit Function

End Function

[dbcontrols]

先用ADODC控件连接好然后复制右键属性里面的连接串最标准.

[fontain]

你的provider不写怎么行呢，
cn.connection='provider=...'也可以，可以参照 dbcontrols(泰山__抛砖引玉) 生成一个connectionstring看看就知道了