急用! 如何用VB中的DAO访问数据庫?

Question

工程→引用→microsoft DAO object 2.5 libraly
声明全局变量：
Option Explicit
  Global DB as Database
  Global RS as Recordset可以在form-load事件中加载：
Dim sql as String
set DB = dbengine.opendatabase("*.mdb")
  小括号里有属性可设置access数据库密码
sql = "select table.* from tablename"
set RS = DB.openrecordset("sql")

Answer 1

dim db as database
dim rs as recordset
set db = dbengine.opendatabase(app.path & "\yourDB.mdb")
set rs = db.openrecordset("yourTbl")
就是hsn1982(我爱猫猫) 那样的拉