Timeout Expired In Connection Pooling For ASP.NET 1.1 Selet Case

I'm getting the following error in my v1.1 page:

Timeout expired. The timeout period elapsed prior to obtaining a connection from the pool. This may have occurred because all pooled connections were in use and max pool size was reached.

Not sure why, since I'm trying to close the connection right when I'm done, and I've got the timeout set to "30"

Select Case DBselected
            Case "DB8"
                Try
                    Dim sCon1 As New SqlConnection
                    sCon1.ConnectionString = ConfigurationSettings.AppSettings("db8")
                    Session("DBDDL") = sCon1.ConnectionString.ToString()
                    sCon1.Open()

                    Dim cmd As New SqlCommand("[usp_Security]", sCon1)
                    cmd.CommandType = System.Data.CommandType.StoredProcedure
                    cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IDNumber", System.Data.SqlDbType.NVarChar, 50))
                    cmd.Parameters("@IDNumber").Value = Session("User")

                    Dim DR As SqlDataReader = cmd.ExecuteReader
                    If DR.HasRows = False Then
                       
                        btnSwitchboard1.Enabled = False
                        lblnotice.Visible = True
                        lblnotice.Text = "The IDNumber, " & strIDNumber & ", doesn't exist in the database for access permission!"
                    Else
                        btnSwitchboard1.Enabled = True
                        lblnotice.Visible = False
                    End If
                    DR.Close()
                    DR = Nothing
                Catch ex As Exception
                    lblStatus.Text = "Error building IDNumber:  " & ex.Message
                Finally
                    sCon1.Close()
                End Try

            Case "DB1"
                Try
                  
                    Dim sCon1 As New SqlConnection
                    sCon1.ConnectionString = ConfigurationSettings.AppSettings("db1")
                    Session("DBDDL") = sCon1.ConnectionString.ToString()
                    sCon1.Open()

                    Dim cmd As New SqlCommand("[usp_Security]", sCon1)
                    cmd.CommandType = System.Data.CommandType.StoredProcedure
                    cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IDNumber", System.Data.SqlDbType.NVarChar, 50))
                    cmd.Parameters("@IDNumber").Value = Session("User")

                    Dim DR As SqlDataReader = cmd.ExecuteReader
                    If DR.HasRows = False Then
                        btnSwitchboard1.Enabled = False
                        lblnotice.Visible = True
                        lblnotice.Text = "The IDNumber, " & strIDNumber & ", doesn't exist in the database for access permission!"
                    Else
                       
                        btnSwitchboard1.Enabled = True
                        lblnotice.Visible = False
                    End If
                    DR.Close()
                    DR = Nothing
                Catch ex As Exception
                    lblStatus.Text = "Error building IDNumber:  " & ex.Message
                Finally
                    sCon1.Close()
                End Try

            Case "DB2"
                Try
                  
                    Dim sCon1 As New SqlConnection
                    sCon1.ConnectionString = ConfigurationSettings.AppSettings("db2")
                    Session("DBDDL") = sCon1.ConnectionString.ToString()
                    sCon1.Open()

                    Dim cmd As New SqlCommand("[usp_Security]", sCon1)
                    cmd.CommandType = System.Data.CommandType.StoredProcedure
                    cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IDNumber", System.Data.SqlDbType.NVarChar, 50))
                    cmd.Parameters("@IDNumber").Value = Session("User")
                    Dim DR As SqlDataReader = cmd.ExecuteReader
                    If DR.HasRows = False Then
                       
                        btnSwitchboard1.Enabled = False
                        lblnotice.Visible = True
                        lblnotice.Text = "The IDNumber, " & strIDNumber & ", doesn't exist in the database for access permission!"
                    Else
                       
                        btnSwitchboard1.Enabled = True
                        lblnotice.Visible = False
                    End If
                    DR.Close()
                    DR = Nothing
                Catch ex As Exception
                    lblStatus.Text = "Error building IDNumber:  " & ex.Message
                Finally
                    sCon1.Close()
                End Try

            Case "DB3"
                Try
                   
                    Dim sCon1 As New SqlConnection
                    sCon1.ConnectionString = ConfigurationSettings.AppSettings("db3")
                    Session("DBDDL") = sCon1.ConnectionString.ToString()
                    sCon1.Open()

                    Dim cmd As New SqlCommand("[usp_Security]", sCon1)
                    cmd.CommandType = System.Data.CommandType.StoredProcedure
                    cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IDNumber", System.Data.SqlDbType.NVarChar, 50))
                    cmd.Parameters("@IDNumber").Value = Session("User")
                    Dim DR As SqlDataReader = cmd.ExecuteReader
                    If DR.HasRows = False Then
                        btnSwitchboard1.Enabled = False
                        lblnotice.Visible = True
                        lblnotice.Text = "The IDNumber, " & strIDNumber & ", doesn't exist in the database for access permission!"
                    Else
                      
                        btnSwitchboard1.Enabled = True
                        lblnotice.Visible = False
                    End If
                    DR.Close()
                    DR = Nothing
                Catch ex As Exception
                    lblStatus.Text = "Error building IDNumber:  " & ex.Message
                Finally
                    sCon1.Close()
                End Try

            Case "DB4"
                Try
                   
                    Dim sCon1 As New SqlConnection
                    sCon1.ConnectionString = ConfigurationSettings.AppSettings("db4")
                    Session("DBDDL") = sCon1.ConnectionString.ToString()
                    sCon1.Open()

                    Dim cmd As New SqlCommand("[usp_Security]", sCon1)
                    cmd.CommandType = System.Data.CommandType.StoredProcedure
                    cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IDNumber", System.Data.SqlDbType.NVarChar, 50))
                    cmd.Parameters("@IDNumber").Value = Session("User")
                    Dim DR As SqlDataReader = cmd.ExecuteReader
                    If DR.HasRows = False Then
                       
                        btnSwitchboard1.Enabled = False
                        lblnotice.Visible = True
                        lblnotice.Text = "The IDNumber, " & strIDNumber & ", doesn't exist in the database for access permission!"
                    Else
                       
                        btnSwitchboard1.Enabled = True
                        lblnotice.Visible = False
                    End If
                    DR.Close()
                    DR = Nothing
                Catch ex As Exception
                    lblStatus.Text = "Error building IDNumber:  " & ex.Message
                Finally
                    sCon1.Close()
                End Try