Sæt en værdi = session fra en SELECT linje

Hej

Hvis jeg har følgende kode, hvor kan jeg så sætte de forskellige ting = et navn, ved godt at jeg i min SELECT linje kan sige Tabel1 AS Tabel men hvis jeg nu vil sætte det som en session hvor i koden skal den så vise at Session("ImageShow") = DogImageDate !?

    Public Sub OpenDB()
        Dim ObjConn As OleDbConnection
        Dim ObjCmd As OleDbCommand
        Dim ObjReader As OleDbDataReader
        'ConnectionString og SQL linje.
        Dim ConnectionString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
        ObjConn = New OleDbConnection(ConnectionString)
        ObjCmd = New OleDbCommand("select * from somestuff where status='MAYBE' order by date desc", ObjConn)
        'Prøv at åben Connection.
        Try
            ObjConn.Open()
            ObjReader = ObjCmd.ExecuteReader(CommandBehavior.CloseConnection)
            'Hvis der er data, udskriv da dataen til en Repeater med id=Repeater1.
            If ObjReader.HasRows() Then
                Repeater1.DataSource = ObjReader
                Repeater1.DataBind()
            Else
                'Hvis der ikke er data, lav en fejl tekst.
                Response.Write("intet i databasen DB")
            End If
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            'Lukker Connection, Reader og Sletter Hukommelse.
            If Not ObjReader Is Nothing Then
                ObjReader.Dispose()
            End If
            If Not ObjConn Is Nothing Then
                ObjConn.Dispose()
            End If

        End Try
    End Sub