Do While rs.EOF = False
eat = "select shopname from shop where sort ='" & 餐饮 & "'"
rs.Open eat, cn, adOpenStatic, adLockOptimistic
lsteat.AddItem rs.Fields("shopname")
rs.MoveNext
Loop
eat = "select shopname from shop where sort ='" & 餐饮 & "'"
rs.Open eat, cn, adOpenStatic, adLockOptimistic
lsteat.AddItem rs.Fields("shopname")
rs.MoveNext
Loop
rs.Open eat, cn, adOpenStatic, adLockOptimisticDo While not rs.EOF
lsteat.AddItem rs.Fields(0)
rs.MoveNext
Loop