Question

用VB连接带密码的ACCESS数据库出错

Dim MdbConn As New ADODB.Connection

MdbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\StationInfo.mdb;password=1234;user id=;Persist Security Info=False"

在使用上面方法连接数据库时，总是提示
“无法启动应用程序。工作组信息文件丢失，或是已被其他用户以独占方式打开。”

后来使用ADO控件连接数据库，
提供应用程序：Microsoft.Jet.OLEDB.4.0
用户名称：Admin;密码:1234；
在测试连接时，提示
“测试连接失败，因为初始化提供程序时发生错误。无法启动应用程序。工作组文件信息丢失，或是已被其他用户以独占方式打开。”

补充：数据库是用ACCESS2003建立的，在测试数据库时并没有其他程序打开数据库。

Answer 1

set conn=createobject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};pwd=数据库密码;DBQ=" & app.path & "\数据库文件名"