VB数据库查询按钮编程

Private Sub CmdFind_Click()
If TxtFind.Text = "" Then
MsgBox "请选择查询项目并输入查询内容！", 48, "提示"
Exit Sub
End If
Data1.Recordset.FindFirst ComdFind.Text&"="&"'"&TxtFind.Text"'"
If Data1.Recordset.NoMatch Then
MsgBox "记录不存在", 64, "提示"
End If
请问这句话，系统提示，
Data1.Recordset.FindFirst ComdFind.Text&"="&"'"&TxtFind.Text"'"
缺少结束语句：