原来的窗体内有组合框，现在删掉了，那删掉之后的编码该怎么写呢

原来的窗体内有组合框，现在删掉了，那删掉之后的编码该怎么写呢？

Private Sub cmd清除_Click()
On Error GoTo Err_cmd清除_Click
'这里将使用FOR EACH CONTROL的方法来清除控件的值
'这在控件比较多的时候非常有用。
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

    Dim ctl As Control
   
    For Each ctl In Me.Controls
   
        '根据ctl的控件类型来选择
        Select Case ctl.ControlType
            Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值)
                If ctl.Locked = False Then ctl.Value = Null
               
            Case acComboBox '是组合框，也要清空
                ctl.Value = Null
            '其它类型的控件不处理
       
        End Select
    Next
   
    '取消子窗体的筛选
    Me.存书查询子窗体.Form.Filter = ""
    Me.存书查询子窗体.Form.FilterOn = False
   
    '在子窗体取消筛选后要运行一下自编子程序CheckSubformCount()
    Call CheckSubformCount

Exit_cmd清除_Click:
    Exit Sub

Err_cmd清除_Click:
    MsgBox Err.Description
    Resume Exit_cmd清除_Click
   
End Sub