Очистка формы

[yurkagagarin]

Использую код для очистки (reset) формы:

Private Sub ResetHayavKelet_Click()
Dim ctl As Control

For Each ctl In Me.KeletPages.Pages(Me.KeletPages.Value).Controls
    If TypeName(ctl) = "ComboBox" Then ctl.Value = ""
    If TypeName(ctl) = "OptionButton" Then ctl.Value = False
    If TypeName(ctl) = "CheckBox" Then ctl.Value = False
Next
Me.dob = ""
End Sub

Но остаются всё равно несколько заполненных TextBox. В чём проблема?

ЗЫ. Я дурачина, понял проблему))))