新手求助

Private Sub Command1_Click()
Dim msg
oldmark = Adodc1.Recordset.Bookmark
msg = Trim(InputBox("请输入" + Combo1.Text, "查询"))
If Combo1.Text = "编号" Then
msg = "select * from yonghu where 编号 like '" & msg & "'"
End If
If Combo1.Text = "姓名" Then
msg = "select * from yonghu where 姓名 like '" & msg & "'"
End If
If Combo1.Text = "性别" Then
msg = "select * from yonghu where 性别 like '" & msg & "'"
End If
DataGrid1.RecordSelectors = True
Adodc1.RecordSource = msg
这段代码有错误吗，我试了半天也不能执行，也没有错误提示求帮助
试试在最后加上

Adodc1.Recordset.Requery 你就不能写
msg = "select * from yonghu where " & Combo1.Text & " like '" & msg & "'"
么？？？？？ 难道你的老板是按照代码行数给你算工资的么？ 没关系，这样的代码可以兼容界面提示与数据表字段名不一致的情况。

补充：VB ,  非技术类