我现在用的是4个combo分别是combo1.combo2.combo3和combo4
其中combo1的属性：list为 计算机系.工商管理系.建处工程系（索引分别为0.1.2）
combo2.combo3.combo4分别在combo1的ListIndex为1.2.3时其visible=true（2.3.4分别是combo1控件中文本所对应 的专业）
现在Data控件和MSFlexGrid1空间连接一个ACCESS数据库
Select Case Combo2.ListIndex
Case 0
Combo4.Visible = False
Combo3.Visible = True
Combo2.Visible = False
Case 1
Combo4.Visible = True
Combo3.Visible = False
Combo2.Visible = False
Case 2
Combo4.Visible = False
Combo3.Visible = False
Combo2.Visible = True
end Select

现在我所写的代码是如下：
Private Sub Command1_Click()
Select Case Combo1.ListIndex
Case 0
Data1.RecordSource = "select * from 学生 WHERE 系部 like '" & Combo1.Text & " ' and 专业like'"&Combo2.Text & "' "
Data1.Refresh
Case 1
Data1.RecordSource = "select * from 学生 WHERE 系部 like '" & Combo1.Text & " ' and 专业 like '" & Combo3.Text & "' "
Data1.Refresh
Case 3
Data1.RecordSource = "select * from 学生 WHERE 系部 like '" & Combo1.Text & " ' and 专业 like '" & Combo4.Text & "' "
Data1.Refresh
end Select
实现其查询的功能
可是为什么不能实现呢
谁能说说我错在那里了？谢谢