请个位DX帮帮忙。内有代码.紧急求助在线等

Private Sub Command7_Click()
On Error GoTo OOPS
Dim Inputstring As String
Inputstring = InputBox("请输入所需查询的姓名", "姓名输入提示")
If Len(Inputstring) > 0 Then
Data1.RecordSource = "SELECT * FROM Tabel WHERE  姓名  Like  '" & Inputstring & "'"
Data1.Refresh
Data1.Recordset.MoveLast: Data1.Recordset.MoveFirst
Data1.Refresh
End If
Exit Sub
OOPS:
MsgBox Err.Description
'queryfrm.Show
End Sub
在面是代码。输入内容一点确定的时候就会出现“JET数据引擎找不到对象'select * from tabel where 姓名　like 'a''.请确定对象是否存在，并正确地写出它的名称和路径”可是这个窗口别的都好用啊。数也可以看可以修改。就是应用　这个语句时就会出现问题。