我的数据库连接一直出错哎。。。。。。求助啊 泪求啊 急 在线等 ~~~~(>_<)~~~~ 初学者求助

[qinheyi71]

我的代码是这样的


Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles login.Click
Dim dv
Dim recs As New ADODB.Recordset
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\gis project\vic\dc_vic\dc_vic\Database3.mdb;Persist Security Info=True", "Admin", "njau") ‘在这里就出错了 提示什么 无法启动应用程序。工作组信息文件丢失，或是已被其它用户以独占方式打开。
recs.CursorLocation = CursorLocationEnum.adUseClient
recs.Open("Select 密码 From 表1系统用户 Where 登录名='Admin'", conn, 1, 1)

dv = recs("密码").Value
MsgBox(dv)


End Sub

[damjmk2]

可能 conn 以前被用过了，没有close

[hongjiaoli]

建议每一个函数都加上 close();

[水猿兵团五哥]

是不是你还在打开着access
把东西都关掉，然后再来

[qinheyi71]

。。。我没有打开 access 。。。我加了close 安装楼上的要求。。。。 还是出错 出错在
conn.close ’出错内容对象关闭时，不允许操作。

[qinheyi71]

说明 conn 本来就是关闭的，，，，哎 数据库在解决方案管理器中被添加了进去 那么还是这样的路径来 打开吗 。。。

[沐NeMo]

连接字符串改为：试一试。

dim str as string
str="Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Password=;Data Source=E:\gis project\vic\dc_vic\dc_vic\Database3.mdb"
conn.Open(str)

----
ps:(五画) 好久不见啊。

[qinheyi71]

楼上的都不对 。。。。。。。我明白了我把 数据库的密码设置取消了 数据库就能够 连接起来了。。。不知道为什么，，，
谢谢各位