公用函数调用问题

我创建了一个公用函数，用来返回当前用户的用户名：

Public Function NowUser() As String
    Dim TemCn As ADODB.Connection
    Dim TemRs As New ADODB.Recordset
    Dim str As String
    Set TemCn = CurrentProject.Connection
    TemRs.ActiveConnection = TemCn
    str = "SELECT 用户名 FROM 用户表 WHERE IsCurrent=True"
    TemRs.Open str, , , , -1
    str = TemRs!用户名
    TemRs.Close
    TemCn.Close
    Set TemRs = Nothing
    Set TemCn = Nothing
    NowUser = str
End Function

经调试，该函数运行正常，能返回正确的值，但是在某个窗口的加载事件里调用此函数，却出错，调用代码：

Private Sub Form_Load()
    Me.CurtUser.Caption = "当前用户 " & NowUser()  //CurtUser是标签控件
    Me.DateSys.Caption = "日期 " & Date
End Sub

红色部分是出错位置，出错提示是：

不知道为什么，麻烦大家帮忙看看是什么问题。

下面是附件，记得按下SHIFT打开哈，密码在用户表中有。

点击下载此附件