关于模板中“要求对象”的问题

各位老师好，我目前正在制作函数模块，目前已经实现了函数的取值和运算，但是在结束运算并返回页面VBA代码指令后，系统却报错，具体代码如下所示，请各位老师不吝赐教，谢谢！

功能目的：

            1）函数能够执行相关功能；

            2）窗体代码只需要赋值和取值便可完成工作；

问题：

        当函数完成运算并返回窗口VBA代码后，出现错误提示，内容为“要求对象”。

窗口VBA指令：

Private Sub Form_Open(Cancel As Integer)
    Dim ID As Integer
    Dim a As String
    ID = 1
    abc(ID) = ID （此行为问题报错点）
    Me.Text0.Value = ID
    Me.Text2.Value = a
End Sub

模块函数：

Public Function abc(ID As Integer)
    Dim a As String
    a = DLookup("a", "ad", "ID=" & ID)
End Function

我是一个初学者，请老师解释的详细一点，如果我理解有误需要追问，还请您见谅。

点击下载此附件