Private danxt_data As ADODB.Recordset


Set danxt_data = New ADODB.Recordset
danxt_data.Open "select * from danxt", "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\数据库\examdb.mdb " & ";", adOpenKeyset, adLockOptimistic

我用的是accessxp，给数据库设了口令："123456"
那么上面的语句怎么把口令加进去呢？

请赐教！谢谢！谢谢！

在函数里写入以下代码
Public con As New ADODB.Connection

Public Function ConnectToServer() As Boolean
On Error GoTo ConnectErr
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & _
"\数据库\examdb.mdb;Jet OLEDB:Database Password=1234;Persist Security Info=True"

con.CommandTimeout = 30
con.Open
ConnectToServer = True
Exit Function
ConnectErr:
ConnectToServer = False
MsgBox "错误代码：" & Err.Number & vbCrLf & _
"错误描述：" & Err.Descripton, vbCritical + vbOKCancel, "连接错误"

而且还有一个问题是：
我在原来那个代码里面加入：user id=管理员;pwd=123456;
却出现下面这样的错误提示：
无法启动应用程序。工作组信息文件丢失，或是已被其它用户以独占方式打开。

请问：问题究竟出在哪里呀？？？

请赐教！谢谢！！