奇迹暖暖公主级10支 2:请问这个控件的过滤如何实现

我现在做了一个图书查询程序
在添加新书的时候,需要设定类别,这一项是一个datacombo1控件dcbType
我想达到这样一个目的:当选定了类别时,下面的一个datacombo2控件dcbClass的下拉框里的项会动态改变.
举个例子:有两个类别:电脑(1),其它(2).
有两个房间201,202.
为了使书有条理,我把房间编号为1201,1202;2201,2201.
这样在datacombo2控件下会显示四个选项,而我在添回书的时候,如果我确定了是添加电脑类的书我想datacombo2控件的下拉框会动态改变仅显示1201,1202.
不知道这个功能如何实现
谢谢

我试着写了一下,不知道为什么实现不了,运行这个Click事件后,dcboffice框中什么也没有了,不知道哪个语句出了问题,高手帮忙看看,谢谢了
Private Sub DataType_Click(Area As Integer)
'针对所选班级,列出班级中所有的成绩信息
Dim strSQL
strSQL = "select * from Bookoffice where dept_id in (select id from Booktype where Name='&DataType&')"
DataEnv.rsBookoffice.Close
DataEnv.rsBookoffice.Open strSQL

'刷新 dcbOffice 所列的学号
dcbOffice.RowMember = ""
dcbOffice.Refresh
dcbOffice.ReFill
dcbOffice.RowMember = "Bookoffice"
dcbOffice.Refresh
dcbOffice.ReFill
dcbOffice.Text = ""
End Sub

注:DataType是一个书籍类型的Data combo控件,
dcbOffice是一个图书所放房间的Data combo控件,
Bookoffice是一个存放所放房间的数据表,两个字段:dept_id Name,
Booktype是一个存放所属类型的数据表,两个字段:id,Name,
这两个表通过dept_id与id相连接.