数据库连接问题.....................

magicren

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim StrConnection As String
Dim Strmsg As String

On Error GoTo End_
     
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.ConnectionString = "rovider =Microsoft.jet.oledb.4.0;data source=" & Application.CurrentProject.Path & "\mydata.mdb;User Id=adminassword= "
cnn.Open

End_:
    Debug.Print Err.Description
   
出错信息是：数据库被用户 'Admin' 使用计算机 'erer' 置为锁定或不能打开的状态。

各位大侠如何解决这个问题，多谢了!![em12]

[此贴子已经被作者于2003-5-21 11:30:46编辑过]

twklzw

去掉密码试试：
cnn.connectionstring = "provider =microsoft.jet.oledb.4.0;data source=" & application.currentproject.path & "\mydata.mdb"
cnn.open

magicren

试了，不行。。。。
大虾们救命啊。。。。。。。。。。。。。。。。。。。。。。。。。。。。