Creating a Stored Procedure in MS Access 2016 (1 Viewer)

-- =============================================
-- Author:		XXXXX XXX
-- Create date: 17th August 2011
-- Description:	Gets the user details.
--              Used on frmSplashScreen
-- =============================================
ALTER PROCEDURE dbo.GetUserDetails 

	@UserName nvarchar(50)
	
AS BEGIN

SET NOCOUNT ON

DECLARE
	@UserNameLOCAL nvarchar(50) = @UserName

SELECT
	FullName = A.Title + ' ' + A.Forename + ' ' + A.Surname,
	A.PeopleId,
	A.UserName,
	A.Email,
	A.UserReason,
	A.SeeAnEnhancements,
	A.UserEnabled,
	A.Site,
	A.AdminGroup
FROM
	dbo.tblPeople A
WHERE
	A.UserName = @UserNameLOCAL
	AND
	A.UserEnabled = 1
	
END

    Dim cmd As New ADODB.Command

    Set cmd = New ADODB.Command
    
    cmd.ActiveConnection = "Provider=sqloledb;Data Source=SQL2008CLS\LEW;Initial Catalog=MedicalLeave;Trusted_Connection=Yes;"
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "GetUserDetails"
    cmd.Parameters.Append cmd.CreateParameter("@azrl", adVarChar, adParamInput, 255, "azrl")
    cmd.Execute

Public Function GetUserDetails(strUsername As String) As Recordset

    Dim db As Database
    Dim rst As Recordset
    Dim strsql As String
    
    strsql = "SELECT A.Title & ' ' + A.Forename + ' ' + A.Surname as Fullname, A.* FROM tblPeople A WHERE A.UserName = " & strUsername & " AND A.UserEnabled = 1"
    
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strsql)
    
    If Not rst.EOF Then
        Set GetUserDetails = rst
    Else
        Set GetUserDetails = Nothing
    End If
    
End Function