关于查询的问题?

Question

下面是一段很简单的查询代码,可是每次运行后都提示"没有符合条件的房间",我觉得应该是输入的房号没有被以正确的字符形式被提交,请指点.(房号是肯定有的)
 
Dim msg
 old = Data1.Recordset.Book
 msg = Trim(InputBox("请输入房号", "查询"))
 msg = "房号 like ' " & msg & " '"
 Data1.Recordset.FindFirst msg
 If Data1.Recordset.NoMatch Then
 MsgBox ("没有符合条件的房间")
 End If

Answer 1

自己增加一个label测试
让
label1.caption=msg

Answer 2

ACCESS:
 msg = "房号 like '*" & msg & "*'"SQL SERVER
 msg = "房号 like '%" & msg & "%'"

Answer 3

msg = "房号 like '%" & msg & "%'"

Answer 4

加*和加%我都试过了,还是不行,也用label测试过了,返回的是空字符.我用的是vb自带的数据库,ACCESS,在数据库中查询没有问题,但一到窗口界面就有问题.而且当使用"姓名"查询时,输入的汉字都显示成乱码.