開啟一設密碼的資料庫，卻出現錯誤訊息????(編號：2728)

以下是程式碼
______________________________________________________
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "provider=microsoft.jet.oledb.4.0;data source=d:\test\password2.mdb;password=3456"
conn.Open str　--------------＞偵錯時駐留在此
rs.CursorLocation = adUseClient
rs.Open "pass", conn, adOpenKeyset, adLockOptimistic
If rs("password") = Text1.Text And rs("username") = Text2.Text Then
Label1.Caption = "密碼正確"
Else
Label1.Caption = "密碼錯誤"
End If
____________________________________________________________
執行時卻出現以下訊息:
"無法啟動你的應用程式，工作群組的資料檔不見了或被另一使用者以獨佔方式開啟"
可是我明明只使用一個程式，access2000且是關閉的??
請問各位先輩，問題出在那裡????