VB连接有密码的access数据库..
VB连接有密码的access数据库..如何连接呢???
      我用数据库连接.udl读出了以下的语句
[oledb]
;   Everything   after   this   line   is   an   OLE   DB   initstring
Provider=MSDASQL.1;Password=tango;Persist   Security   Info=True;User   ID=Admin;Data   Source=Eric_Long;Initial   Catalog=D:\zhDB

但是我不知道这句话如何在VB里面使用..能指教吗???
要定义什么.和语句什么写.请详细写.因为我很菜..


------解决方案--------------------

--ADO连接串(带MDW的连接串)：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Test.MDB;User ID=admin;Password=;Jet OLEDB:Database Password=;Jet OLEDB:System database=D:\Test_Sys.MDW

其中第一个password为Access的用户admin的密码，第二个为Access数据库的密码
如果未设置数据库密码，可省略此项。


--访问本地MDB的ADO连接串：

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Test.MDB;User ID=admin;Password=;Jet OLEDB:Database Password=000

其中第一个password为Access的用户admin的密码，第二个为Access数据库的密码
如果未设置数据库密码，可省略此项。


--ADO连接串（访问网络MDB）：

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\服务器名或IP\共享目录\Test.MDB;User ID=admin;Password=;Jet OLEDB:Database Password=;

其中第一个password为Access的用户admin的密码，第二个为Access数据库的密码
如果未设置密码，可省略相关项。



------解决方案--------------------
在VB中定义Connection对象，指定连接对象的连接串，然后打开。

关于串，可以参考楼上给出的方式。
------解决方案--------------------

Dim cn As ADODB.Connection
Dim StrConnect As String

StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & App.Path & "\youDB.mdb; " _
& "Persist Security Info=False;Jet OLEDB:Database Password=youPwd"
Set cn = New ADODB.Connection
cn.Open StrConnect
------解决方案--------------------
选择“工程\引用”命令，引用“Microsoft AetiveX Date Objects 2.x Library”

最好2.5以上版本
------解决方案--------------------
需要引用ADO。