怎样用ado访问加了密码的ACCESS表(不用DSN)?

Question

ConnectStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Booksnew.mdb;UID=aaa;PW=xxx"

Answer 1

应该没有加密前把数据库连到vb，
之后再加密。
加密之后再把连接改一下，
大侠的例子没有错，但写错了一个字母。
Conn.open= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=数据库名称（带扩展名）;UID=用户名;PWD=密码" 

Answer 2

jet oledb:database password=＃＃＃
补充楼上
把UIDPWD去掉

Answer 3

  connstr = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data 　Source=TeleCenter.mdb;Persist Security Info=false;Jet OLEDB:Database Password=1234"
　conn.Open connstr
　rs.CursorLocation = adUseClient
　rs.Open "select * from pwd", conn 
保证可以，给分！！

Answer 4

dim  conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & "XXXX.mdb;password =XXXXXX"我就是这么作的