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

[KAIBate]

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语言有什么格式或规范没有？
拜托各位帮忙看一下，有分送的。

[KAIBate]

虽然问题很菜，请大家帮个忙。

[hhdsq]

"Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号=" & " '&searchstr&'"

改为：

"Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号='" & searchstr & "'"

[fraser01]

hhdsq(笨笨)说的对，SQL语句错了，可惜我晚了一步，遗憾！！！

[Wesely]

同意

[HowardOK]

应该是楼上提出的问题！！

[cgb_prince]

SQL语句错了，另外，如果还不行，试一下
"Select PKlogin2.[车牌号] From PKlogin2 where PKlogin2.[车牌号]='" & searchstr & "'"

[foolishtiger]

hhdsq(笨笨)说的对，SQL语句错了，可惜我晚了好几步，遗憾！！！