已经一个星期了，用代码查询数据库记录的问题还没解决，我把代码贴出来请告诉我怎么办

Question

Dim dbsjet As Database, rs As Recordset
Dim str As String
sdname = App.Path & "\bus.mdb"
Set dbsjet = OpenDatabase(sdname)
str = "SELECT * FROM bus WHERE 途经站 ='" & 东山 & "'"
dbsjet.OpenRecordset (str)我已经改了几天了，就是改成这样才不会出错，请告诉我，接下来我要怎么样才能显示出查到的记录（以上代码我都不知道对不对，反正没报错就是了）

Answer 1

补充一下，你可以用这种方法显示数据：(文本框)
str = "SELECT * FROM bus WHERE 途经站 ='" & 东山 & "'"
set rs = dbsjet.OpenRecordset (str)
text1.text=rs!字段名

Answer 2

我想用TEXT控件显示
我用你的方法提示出错“实时错误424，要求对像”
光标停在set rs = dbsjet.OpenRecordset (str)

Answer 3

后来我这样改就行了，可显示“无当前记录”
Dim str As String
str = "SELECT * FROM bus WHERE 途经站 ='" & 东山 & "'"
sdname = App.Path & "\bus.mdb"
Set dbsjet = OpenDatabase(sdname)
Set rs = dbsjet.OpenRecordset(str)
Text1.Text = rs!途经站明明有这条记录的啊

Answer 4

把这句
    str = "SELECT * FROM bus WHERE 途经站 ='" & 东山 & "'"
改成
    str = "SELECT * FROM bus WHERE 途经站 ='东山'"

Answer 5

把这句
    str = "SELECT * FROM bus WHERE 途经站 ='" & 东山 & "'"
改成
    str = "SELECT * FROM bus WHERE 途经站 ='东山'"

Answer 6

应该不会，不过建议你用ADO方式，而不要用DAO方式。