一个很菜的问题(如何连接带密码的Access数据库)

Question

在连接字符串上加：
Jet OLEDB:DataBase Password=YourPassword
试一试

Answer 1

难道连接带密码的Access数据库只能用dao而不能用ado么？

Answer 2

Function Cn() As Boolean
Dim str As String
Cn = False
str = "dsn=Warehouse;uid=andyhuang;pwd=1234; "
    Set conn = New ADODB.Connection
On Err GoTo conn_Err
       
       conn.Open str
   
       Cn = TrueExit_Function:
       Exit Function
conn_Err:
       MsgBox Err.Description, vbOKOnly, "Error"
Resume Exit_FunctionEnd Function

Answer 3

SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.mdb";User ID=Admin;Password=')...YourTable