vb6打开带有密码的access2003的数据库

vb6打开带有密码的access2003的数据库
如果是使用OpenDatabase打开数据库，需要设置第4个参数，格式同的。Connect属性。  
    下面的例子打开一个带有密码的数据库，密码为outlook：  
    Dim MyDatabase As Database  
    Set MyDatabase = Workspaces(0).OpenDatabase("CSMain.mdb", True, False, ";pwd=outlook")  
在建立ADO连接时，你可以指定用户名和密码，这种方式适合与SQL Server等数据库。对于Access数据库不能使用这样的方式。你可以在通常的连接字符串后面添加：  
    Jet OLEDB:Database Password=password  
    这里password是你的密码。如：  
     Conn1.Open "Provider=Microsoft.JET.OLEDB.3.51;" & _  
     "Data Source=G:\ComponentSource\DBFiles\CSMain\CSMain.mdb;" &  
     "Jet OLEDB:Database Password=outlook"  
    对于ADO控件，你应该把这个字符串添加在ConnectionString属性后面。
用ADO对象来打开,提供者要用jet4.0的。

Conn1.Open "Provider=Microsoft.JET.OLEDB.4.0;" & _  
     "Data Source=" & app.path & "\XXXX.mdb;" &  
     "Jet OLEDB:Database Password=XXXXX"  
代码如下
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
strsql = "Data Source=" & App.Path & "\data\vb.mdb;Jet OLEDB:Database Password=12345"
CN.Open strsql
这个文章是网上转摘的，反正我是没看懂，呵呵