急用！！！请帮忙！！！

Question

用　DAO　与　ACESS　数据库连接：    Dim CurrentDB As Database
    Set CurrentDB = OpenDatabase(数据库名称, True, False, ";pwd=密码")

Answer 1

用　DAO　与　ACESS　数据库连接：    Dim CurrentDB As Database
    Set CurrentDB = OpenDatabase(数据库名称, True, False, ";pwd=密码")

Answer 2

都说完了，我说什么？？
对表的引用
Dim rs As Recordset, db As DatabaseSet db = dbengine.workspace(0).OpenDatabase("数据库名称", True, False, ";pwd=密码")
set rs=db.openrecordset("表名")
记录引用
dim aa
with rs
   move 记录号
   aa=getrow(1)          '可获得一行记录
end with
dim i 
for i=0 to unbound(aa,1)
    debug.print(aa(i,0))     '输出取得记录的所有字段值
next