Defining Sesssion Values from sql db

I'm trying to pull together all the session values from a user registration table so I can use those values in various forms.

When a user who is already registered tries to login, the following code works but I can't figure out how to add additional fields as session values.

This is the login code:

<%@ Page Language="VB" %>

<script runat="server">

    Sub LoginBtn_Click(Sender As Object, E As EventArgs)
    If Page.IsValid Then
    Dim userDS As New System.Data.DataSet
    userDS = GetUser(UserName.Text, UserPass.Text)
    If userDS.Tables(0).Rows.Count = 1 Then
    FormsAuthentication.RedirectFromLoginPage(UserName.Text, false)
    Else
    Msg.Text = "Invalid Credentials: Please try again or " + "<a href='NewUsers.aspx'>register a new user</a>"
    End If
    End If
    End Sub
   
   
        Function GetUser(ByVal username As String, ByVal password As String) As System.Data.DataSet
            Dim connectionString As String = "server='(local)'; trusted_connection=true; database='BCA'"
            Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)
   
            Dim queryString As String = "SELECT [Users].* FROM [Users] WHERE (([Users].[username] = @username) AND ([Users"& _
    "].[password] = @password))"
            Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
            dbCommand.CommandText = queryString
            dbCommand.Connection = dbConnection
   
            Dim dbParam_username As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
            dbParam_username.ParameterName = "@username"
            dbParam_username.Value = username
            dbParam_username.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_username)
            Dim dbParam_password As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
            dbParam_password.ParameterName = "@password"
            dbParam_password.Value = password
            dbParam_password.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_password)
   
            Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
            dataAdapter.SelectCommand = dbCommand
            Dim dataSet As System.Data.DataSet = New System.Data.DataSet
            dataAdapter.Fill(dataSet)
   
            Return dataSet
        End Function

</script>
__________________________

Presently I am obtaining the session value for the username by getting it from the login form by using this code on the login page where the user enters the username and password:
<%Session("Username") = Request.Form("Username")%>

I also want to obtain a Session("Email") and a Session("Company") values but those values are only available from the Registration table named Users.  I see that I'm creating a select query to that table that should give me access to those values but I can't figure out how to make the values available so that I can use them as session values.

Using the code above, will you show me how I do that?

Thank you.