如何用ＶＢ程序打开有密码的ACCESS（没有用户名）数据库？

Question

方法有几种，第一，用DATA控件时，系CONNECT属性后面加上“；PWD=密码"
  第二就系用ADO DATA控件，系性果度有得设置，
  第三是用DAO，好像也是加上“；pwd=密码“不过具体在那个属性上加呢？？应该得指数据库驱动时加上的。
  你可以搜索下其它网站，我记得系网上睇上的。

Answer 1

1、 使用 DAO 命令打开MDB文件：OpenDatabase 
若要由程序中打开，命令如下：
Set DB = OpenDatabase(DatabaseName, False, False, ";Pwd=密码")
实例：
Dim db As Database
Set db = OpenDatabase("C:\db1.mdb", False, False, ";Pwd=1")
若要使用 Data 控件，设定方法如下：
1、设定 DatabaseName 属性 (MDB文件名称 / 含路径)
2、设定 Connect 属性，將预设的字串 "Access" 改成 ";Pwd=密码" (不含双引号)
3、设定 RecordSource 属性 2、
　
使用 ADO 命令打开MDB文件：在使用 ADODC 或 DataEnvironment 设定好之后，直接利用属性窗口修改 ConnectionString 属性(附属于 ADODC) 或 ConnectionSource 属性(附属于 DataEnvironment 的 Connection 控件)，修改的方法是在属性之后增加以下参数：
;Jet OLEDB:Database Password=密码除了 ADODC 及 DataEnvironment 之外， 直接使用 ADO 控件來打开含有密码的 mdb MDB文件，设定参数的方法也是相同的。