Coletar valor na função

Boa noite,

Gostaria de coletar uma informação do campo atraves da função abaixo:
Na tbUsuario tem um campo funcionario (int).
É esse campo eu necessito coletar, mas não tenho nem ideia de como coletar.
Sei que a getUsuarioAtual me retorna o login do usuário e isso já funciona.

Código:


Option Compare Database
Option Explicit

Private strUsuarioAtual As String

Function verificaLogin(argLogin As String, argSenha As String) As Boolean

    Dim criterio As String
    
    criterio = "login='" & argLogin & "' And senha='" & argSenha & "'"
    
    If Nz(DCount("login", "tbUsuario", criterio), 0) > 0 Then
        verificaLogin = True
        setUsuarioAtual argLogin
        
        
    Else
        verificaLogin = False
    End If

End Function

Sub setUsuarioAtual(argUsuario As String)
    strUsuarioAtual = argUsuario
End Sub

Function getUsuarioAtual() As String
    getUsuarioAtual = strUsuarioAtual
End Function