数据库类型问题,该怎么改呢

[mingnianjinri]

Private Sub Command2_Click()
Dim msg
msg = Trim(InputBox("请输入" + Combo1.Text, "查询"))
If Combo1.Text = "职工编号" Then
msg = "职工编号 = " & msg
End If
If Combo1.Text = "姓名" Then
msg = "姓名 = " & msg
End If
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox ("没有符合条件的记录")
End If
End Sub
按姓名查找时类型不匹配,我的数据库中的姓名是用Text型,该怎么改, 谢谢!

[daisy8675]

select * from Name='"& text1.text &"'

[wumylove1234]

msg = "姓名 =' " & msg & "'"

[wumy_ld]

字符型前后需要加单引号