急用！！！请帮忙！！！

[wubaiyong]

不用DATA控件也不用ODBC源，怎样与数据库连接，语句怎么写？

[riverboat]

up

[Sean918]

用　DAO　与　ACESS　数据库连接：

Dim CurrentDB As Database
Set CurrentDB = OpenDatabase(数据库名称, True, False, ";pwd=密码")

[Sean918]

用　DAO　与　ACESS　数据库连接：

Dim CurrentDB As Database
Set CurrentDB = OpenDatabase(数据库名称, True, False, ";pwd=密码")

[qqqdong]

用ado也可以呀

[阿牛138588]

都说完了，我说什么？？
对表的引用
Dim rs As Recordset, db As Database

Set 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