关于DAO的问题？

Question

下面是一段主要代码Dim db As DAO.Database
Dim rs As DAO.RecordsetUserName = Trim(txtuser.Text)
pwd = Trim(txtpwd.Text)strsql = "select * from 用户信息表 where 用户名=" & UserName & " and 口令=" & pwdSet db = DBEngine.OpenDatabase(App.Path + "/db1.mdb")
Set rs = db.OpenRecordset(strsql, dbOpenTable)
我运行程序后出现下面这段文字：
Microsof Jet 数据库引擎找不到对象'select * from 用户信息表 where 
用户名=UserName and 口令=pwd'.请确定对象是否存在，并正确地写出它的名称和路径当然我在设计过程中是添加了ADO的引用的，而且strsql这句是写在一行的
请问这是什么原因，要如何解决!

Answer 1

Set rs = db.OpenRecordset(strsql, dbOpendynaset)

Answer 2

另外：规范的SQL写法应该是：
strsql = "select * from [用户信息表] where [用户名]='" & UserName & "' and [口令]= '" & pwd & "'"

Answer 3

你的SqL语句有问题，楼上说的对！

Answer 4

我试过了，还是一样啊！
运行程序后出现下面这段文字：  
Microsof  Jet  数据库引擎找不到对象'select  *  from  用户信息表  where    
用户名=‘UserName ’ and  口令=‘pwd’'.请确定对象是否存在，并正确地写出它的名称和路径  

Answer 5

你数据库是2000以上的吗？如果是请转换到97格式。再安装一下数据引擎mdac_typ.exe

Answer 6

你的vb是SP5吗？若不是就下载一个装上去吧！