怎样用Data控件访问有密码的.MDB文件？？？

Question

加上一句：Data1.Connect = ";pwd=mima"

Answer 1

A：如果你希望打開一個有密碼保護的Access資料庫，你可以用以下三種語法的任一種： 
   Dim MyConn As New ADODB.Connection
   MyConn.Provider = "Microsoft.Jet.OLEDB.3.51"
   MyConn.Properties("Data Source") = "C:\...\JetPassword.MDB"
   MyConn.Properties("Jet OLEDB:Database Password") = "MyPwd"
   MyConn.Open 
-或-    Dim MyConn As New ADODB.Connection
   Dim strConn As String
   strConn = "Data Source=C:\...\JetPassword.MDB;" & _
             "Jet OLEDB:Database Password=MyPwd"
   MyConn.Provider = "Microsoft.Jet.OLEDB.3.51"
   MyConn.Open ConnectionString:=strConn 
-或-    Dim MyConn As New ADODB.Connection
   Dim strConn As String
   strConn = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
             "Data Source=C:\...\JetPassword.MDB;" & _
             "Jet OLEDB:Database Password=MyPwd"
   MyConn.Open ConnectionString:=strConn 如果你打開一個資料庫使用了Jet安全保護，你需要使用以下方式： 
   Dim MyConn As New ADODB.Connection
   MyConn.Provider = "Microsoft.Jet.OLEDB.3.51"
   MyConn.Properties("Data Source") = "C:\...\JetSecurity.MDB"
   MyConn.Properties("Jet OLEDB:System database") = "C:\...\System.MDW"
   MyConn.Open UserID:="Admin", Password:="MyPwd" 
-或-  
   Dim MyConn As New ADODB.Connection
   Dim strConn As String
   strConn = "Data Source=C:\...\JetSecurity.MDB;" & _
             "Jet OLEDB:System database=C:\...\System.MDW"
   MyConn.Provider = "Microsoft.Jet.OLEDB.3.51"
   MyConn.Open ConnectionString:=strConn, _
               UserID:="Admin", Password:="MyPwd" 
-或-  
   Dim MyConn As New ADODB.Connection
   Dim strConn As String
   strConn = "Provider=Microsoft.Jet.OLEDB.3.51;"
             "Data Source=C:\...\JetSecurity.MDB;" & _
             "Jet OLEDB:System database=C:\...\System.MDW"
   MyConn.Open ConnectionString:=strConn, _
               UserID:="Admin", Password:="MyPwd" 
注意：Jet 3.51 OLEDB provider 被設計用來打開Access97資料庫，如果你要打開Access 2000 請使用Jet 4.0 OLEDB provider，當然Jet 3.51 OLEDB provider也能打開Access 97。 如果你希望使用Jet 4.0只要將Microsoft.Jet.OLEDB.3.51換成Microsoft.Jet.OLEDB.4.0