VB缺少:结束语句

我是菜鸟，大家帮我看一下，下面哪地方出错了，谢谢！！
Private Sub Form_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xuexi\vb6.0\bf\data.mdb" '打开数据库
'关闭数据库
Conn.Close
Set Conn = Nothing
'读取数据
Dim rs As New ADODB.Recordset
Dim spl1 As String
Dim plan As String
Dim sex As String
Dim bx_years As String
Dim tb_years As String
plan = InputBox("请选择计划")
sex = InputBox("请选择性别")
bx_years = InputBox("请选择保险期间")
tb_years = InputBox("请输入投保年龄")
sql1= "select id form jb where plan='"&plan&"' and sex='"&sex&"' and bx_years='"&bx_years&"' and tb_years='"&tb_years&"'"

你在最后写上end sub就OK
Private Sub Form_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xuexi\vb6.0\bf\data.mdb" '打开数据库
'关闭数据库
Conn.Close
Set Conn = Nothing
'读取数据
Dim rs As New ADODB.Recordset
Dim spl1 As String
Dim plan As String
Dim sex As String
Dim bx_years As String
Dim tb_years As String
plan = InputBox("请选择计划")
sex = InputBox("请选择性别")
bx_years = InputBox("请选择保险期间")
tb_years = InputBox("请输入投保年龄")
sql1= "select id form jb where plan='"&plan&"' and sex='"&sex&"' and bx_years='"&bx_years&"' and tb_years='"&tb_years&"'"
end sub

private sub command1_click() if option1 then     form2.show      form1.hide '两个语句不要连成一句了 else     end '//退出程序 end if end sub ' 缺少过程结束语句 '在form2窗口加入下面代码，不然有隐藏窗口在，程序退不出了。 private sub form_unload(cancel as integer)     form1.show end sub

..... sql1= "select id from jb where plan='"&plan&"' and sex='"&sex&"' and bx_years='"&bx_years&"' and tb_years='"&tb_years&"'" ...... end sub 还有应该是select id from jb吧 xuyl1982 加油！！总有一天你会成为一个很牛的回答者~~