VB客房管理出现的有关问题，求高手帮忙

VB客房管理出现的问题，求高手帮忙
在客房登记模块中出现了问题，代码如下：
SQL = "信息"
Call OpenData(SQL)
myRecordset.Source = "select * from 信息 where 房间号='" & txtRoom.Text & "'" ' 查询对应房间号的信息
myRecordset.Open
myRecordset.Fields("姓名") = txtName.Text
 If Option1.Value = True Then
  myRecordset.Fields("性别") = Option1.Caption
 Else
  myRecordset.Fields("性别") = Option2.Caption
 End If
myRecordset.Fields("身份证号") = txtNumber.Text
myRecordset.Fields("备注") = Text5.Text
myRecordset.Fields("开房日期") = txtTime.Text
myRecordset.Update
MsgBox "添加成功！"
myRecordset.Update
Call CloseData
可运行时出现问题，弹出对话框：
实时错误’-21472197913（80040e07）’
标准表达式中数据类型不匹配
点调试：
myRecordset.Open 这行变黄色
请问应该怎么改

[解决办法]
如果房间号是数值型，则：
"select * from 信息 where 房间号=" & txtRoom.Text & ""