vb6显示函数中的类型不匹配

这是我在VB6中锁定控件的代码

Private Function lockControls()
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox _
        Or TypeOf ctrl Is ComboBox _
        Or TypeOf ctrl Is NumBox _
        Or TypeOf ctrl Is OptionButton _
        Or TypeOf ctrl Is DTPicker Then
            ctrl.Enabled = True
        End If
    Next
End Function

但当我尝试运行该程序时，它显示类型不匹配，并且没有给出任何提示。
任何人都能说出这段代码中的错误。

VB6有一个用于控制窗体上的锁定控件的控件。您的函数名，

lockControls

，与之冲突

---

重命名函数。

如果收到错误：

函数对象“FUNCTION1”中的错误数据类型不匹配

---

转到mdb文件并更改字段的数据类型。

转到数据表，然后选择数据类型并选择数字。