Gemme connection i session variabel

Jeg har en login side hvor jeg tester en databaseforbindelse, denne databaseforbindelse vil jeg gerne gemme i en sessionsvariabel , så jeg senere blot kan kalde denne , men kan ikke lige få det til at virke.

      Dim strConnection as String = "user id= '" & txtbrugernavn.Text & "';"
        strConnection += "password= '" & txtpassword.Text & "';"
        strConnection += "database= '" & drpdatabasevalg.SelectedItem.Value & "';"
        strConnection += "server=FF07;"



        Dim myConn as New SqlConnection(strConnection)

          Session("Databasevalg")= drpdatabasevalg.SelectedItem.Value
          Session("Databaseforbindelse") =  ???


        Try
            'Database forbindelse
            myConn.Open()


Senere vil jeg gerne kunne genbruge den ovenstående forbindelse, f.eks i nedenstående eksempel, så jeg sparer noget kode.

Dim strConnection as String = "user id=sa;password=;"
    strConnection += "database=test;server=FF07;"


    Dim objConn as New SqlConnection(strConnection)

    Dim strSQL as String
    strSQL = "SP_samples"
    Dim objCmd as New SqlCommand(strSQL, objConn)