Cmd Limpiar

[reel]

Puedes utilizar ese código si te parece.

Código:

Sub IniControls(myForm As Form)
    Dim cCtrl As Control
    For Each cCtrl In myForm.Controls
        If TypeOf cCtrl Is TextBox Then
            cCtrl.Text = ""
        ElseIf TypeOf cCtrl Is ComboBox Then
            If cCtrl.ListCount > 0 Then cCtrl.ListIndex = 0
        End If
    Next
End Sub

Saludes