无分求助：请高手帮我编写一段小程序（有关DataCombo的使用）

[pengcming]

我是初学者，我想建立一个查询，在一个数据控件DataCombo2中显示符合另一个数据控件DataCombo1的text内容的记录，一旦DataCombo1中的text内容变化，则DataCombo2中的记录也要随机变化。在线等待！谢谢！
我的小程序为：
Private Sub DataCombo4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Data2.RecordSource = "select 细项 from 实施细则 where 小项='" & DataCombo4.Text & "'"
Data2.Refresh
Data2.UpdateRecord
Set DataCombo3.DataSource = Data2.Recordset
Set DataCombo3.RowSource = Data2.Recordset
DataCombo3.RowMember = "细项"
DataCombo3.ListField = "细项"
End Sub

运行到Data2.UpdateControls 时就出错：
提示对象变量或with块变量未设置