急救,vb查询的问题

小弟最近在开发一个小系统的时候遇到一个问题:语法错误?
代码如下:
1,private sub command1_click()
2,dim findsm as string
3,findsm=inputbox("请输入书名","按书名查询")
4,findsm "书名='"&findsm&"'"
5,********(省略部分语句)
6,end sub
提示错误后按调试,第四行语句就显示红色,请各位大虾急救.