' (只用DAO方式)
 Dim db As Database
 Dim rs As Recordset
 Dim strsql As String
  
 strsql = "select * from mytable"
 
 Set db = OpenDatabase(mydatabase, False, False, "ODBC;dsn=myserver;uid=sa;pwd=111")
 Set rs = db.OpenRecordset(strsql, dbOpenSnapshot, dbconsisten)----------以上这几句没错----------但是我将最后一句改为Set rs = db.OpenRecordset(strsql)就错了.难道不带参数不行吗?