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