VB缺少:结束语句

你在最后写上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

.....
sql1= "select id from jb where plan='"&plan&"'