VBA中怎么定义getrs(),语句怎么写

我做了一个登录系统，提示定义getrs(),具体语句怎么写？谢谢
我的语句


Option Compare Database
Function getrs()
Set getrs = CreateObject("adodb.recordset")
End Function


Private Sub Command1_Click()
Dim str As String   '定义变量str
Dim jg As New ADODB.Recordset   '定义jg变量，用来存放查询记录
dlmc = Trim(Me.用户名称)  '输入的用户名称赋值给dlmc
dlmm = Trim(Me.用户密码)   '输入的用户密码赋值给dlmm
If IsNull(dlmc) Then       '判断输入的用户名是否为空
DoCmd.Beep                '如果没有用户名，提示用户
MsgBox ("请输入用户名称！")
ElseIf IsNull(dlmm) Then         '判断输入的用户密码是否为空
DoCmd.Beep                  '如果没有用户密码，提示用户
MsgBox ("请输入密码！")
Else
str = "select * from 工作人员 where  xm='" & dlmc & "' and kl='" & dlmm & "'"
'在“工作人员”表中进行查询
Set jg = getrs(str)  '将查询结果赋值给变量jg
If jg.EOF Then
'判断“工作人员”表中是否有与输入的用户名称和用户密码相同的记录，如果没有提示并将窗体中“用户名称”、“用户密码”两文本框清空，将光标放在“用户名称”文本框中。
DoCmd.Beep
    MsgBox ("用户名称不正确或密码有误！")
    Me.用户名称 = ""
    Me.用户密码 = ""
    Me.用户名称.SetFocus
    Exit Sub
Else
   DoCmd.Close
   DoCmd.OpenForm "主窗体"
End If
End If
Set jg = Nothing
End Sub




Private Sub Command2_Click()
DoCmd.Close
End Sub