我想只在listbox中显示字段名为sort，类别为“住宿”的商家名字
做了一款预定系统，数据库中的字段sort为类别，包括餐饮、住宿等，我想在listbox中只显示类别为住宿的商家，请问代码怎么写
Dim cn As New ADODB.Connection '* 数据库连接
Dim rs As New ADODB.Recordset '* 数据库记录
Set rs = New ADODB.Recordset
Dim eat As String
Dim stay As String
Dim relaxation As String
Dim other As String
On Error Resume Next
'* 连接数据库源
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\user.mdb" '数据库名称
'* 将注册信息存储进入数据库注册表中
rs.Open "SELECT * FROM shop", cn, _
adOpenDynamic, adLockOptimistic, adCmdText '记录信息的数据库
Do While rs.EOF = False
eat = "selet sort from shop where sort='" & 餐饮 & "'"
rs.Open eat, cn, adOpenDynamic, adLockPessimistic
lsteat.AddItem rs.Fields("shopname")
rs.MoveNext
Loop
我的代码会在listbox中显示所有商家
[解决办法]
eat = "select name from shop where sort='" & 餐饮 & "'"
[解决办法]
eat = "select shopname from shop where sort='住宿'"
