create Procedure sp_Login
(
   @Email varchar( 50 ),
   @Password varchar( 50 ),
   
   @FullName varchar( 100 ) output,
   @UserID int output,
   @ManageCount int output
)
As
   select @UserID =  0 
   select @UserID = UserID, @FullName = FirstName + ' ' + LastName
   from Users
   where Email like @email + '%'
   and password = @Password
      
   -- Exactly one unique user should be found, otherwise fail
   if @@rowcount <>  1 
   begin
      select @UserID =  0 
      return
   end
   
   select @ManageCount = count(*)
   from Users
   where ManagerID = @UserID

    Dim cmd As New ADODB.Command
    Dim ret As Variant
    
    With cmd
        .ActiveConnection = dsn
        .CommandType = ADODB.adCmdStoredProc
        .CommandText = "sp_Login"
        .Parameters.Refresh
        .Parameters("@Email").Value = Email
        .Parameters("@Password").Value = Password
        .Execute
        
        UserID = .Parameters("@UserID")
        FullName = .Parameters("@FullName")
        ManageCount = .Parameters("@ManageCount")
    End With