拜托看一下，这段代码怎么老是出问题？是关于数据库的。

If Option1 = True Then
Dim strSQL As String
Dim searchstr As String
searchstr = InputBox("请输入车牌号：", "查找车牌") '有问题

strSQL = "Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=" & " '&searchstr&'"
If Trim(strSQL) <> "" Then
Data1.RecordSource = strSQL
Data1.Refresh

Else
MsgBox ("对不起，不能输入空号。")
End If

End If

这段代码的意思是从表PKlogin2中找出相关记录后显示在MSFlexGrid1控件中。
但它始终显示：
实时错误'3011'
Microsoft Jet 数据库引擎找不到对象"Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=" & " '&searchstr&'" 请确定对象是否存在
，并正确写出它的名称和路径。

我的MSDN竟然找不到相关内容！
我不知道错在那里，而且这种引入到程序中的SQL语言有什么格式或规范没有？
拜托各位帮忙看一下，有分送的。