VB代码问题,错误在哪?PrivateSubCommand1-C

Private Sub Command1_Click() If Option1.Value = False And Option2.Value = False Then MsgBox "请选择那类查询！", vbOKOnly, "襄樊海力信" Else If Option1.Value = True Then If Text1.Text <> "" Then Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\新建文件夹\ b;Persist Security Info=False" db.Open rs.CursorLocation = adUseClient rs.Open " select * from 产品客户信息表 where 产品客户信息表.底盘号='" & Text1.Text & " '", db, adOpenStatic, adLockReadOnly If rs.EOF = False And rs.BOF = False Then Set DataGrid1.DataSource = rs Else MsgBox "没有此底盘号名称！", vbOKOnly, "襄樊海力信" End If Else MsgBox "请输入你要查询的底盘号名称！", vbOKOnly, "襄樊海力信" End If Else If Text1.Text <> "" Then Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\新建文件夹\ b;Persist Security Info=False" db.Open rs.CursorLocation = adUseClient rs.Open "select * from 产品客户信息表 where 产品客户信息表.服务站名称 = ' " & Text1.Text & " '", db, adOpenStatic, adLockReadOnly If rs.EOF = False And rs.BOF = False Then Set DataGrid1.DataSource = rs Else MsgBox "没有你要查询的服务站！", vbOKOnly, "襄樊海力信" End If Else MsgBox "请输入您要查询的服务站！", vbOKOnly, "襄樊海力信" End If End If End If End Sub 查询的服务站名称数据库中有,可一直显示没有该服务站的数据VB代码问题,错误在哪?PrivateSubCommand1_Click()IfOption1.Value=FalseAndOption2.Value=Fals?