Connection problemer ?

Hejsa,

Jeg har lavet min forbindelse til databasen igennem en klasse. Min function ser således ud :

Private Conn As SqlConnection
Public Function SqlConnect()
    Dim Sql As String = "Data Source=xxx;Initial Catalog=yyy;User Id=xxx;Password=yyy;"
    Conn = New SqlConnection(Sql)
    Conn.Open()
    SqlConnect = Conn
End Function

Samt en lukke function :

Public Sub SqlClose()
    Conn.Close()
End Sub

Når så jeg f.eks. vil lave en en function i mit datalag der smidder data i et dataset gør jeg følgende :

Public Function LoadText()
    Dim objDb As DbClass = New DbClass
    Dim objConn As SqlConnection = objDb.SqlConnect
    Dim objComm As New SqlDataAdapter("Select * From tbl_text", objConn)
    Dim objDS As New DataSet
    objComm.Fill(objDS, "tbl_text")
    objDb.SqlClose()
    Return objDS
End Function

Eller ved en indsættelse :

Public Function TextAdd(ByVal Language As String, _
                        ByVal Headline As String, _
                        ByVal LinkName As String, _
                        ByVal Description As String)
    Dim objDb As DbClass = New DbClass
    Dim objComm = New SqlCommand
    objComm.Parameters.Add("@Language", SqlDbType.NVarChar)
    objComm.Parameters.Add("@Headline", SqlDbType.NVarChar)
    objComm.Parameters.Add("@LinkName", SqlDbType.NVarChar)
    objComm.Parameters.Add("@Description", SqlDbType.Text)
    objComm.Parameters.Add("@GroupBy", SqlDbType.Char)
    objComm.Parameters("@Language").Value = Language
    objComm.Parameters("@Headline").Value = Headline
    objComm.Parameters("@LinkName").Value = LinkName
    objComm.Parameters("@Description").Value = Description
    objComm.Parameters("@GroupBy").Value = Left(LinkName, 1)
    objComm.Connection = objDb.SqlConnect
    Try
        objComm.CommandText = "Insert Into tbl_text (getLanguage, Headline, Linkname, Description, GroupBy) Values (@Language, @Headline, @LinkName, @Description, @GroupBy)"
        objComm.ExecuteNonQuery()
    Catch ex As Exception
        Return ex.Message
    Finally
        objDb.SqlClose()
    End Try
    Return "True"
End Function

Men efter hånden som der klikkes rundt på de forskellige links på siden og flere og flere functioner bliver brugt ja så dannes der blot en ny forbindelse og på et tidspunkt rammer vi de famøse 100 der kan være i poolen og så køre siden jo som bekendt ikke.

Hvordan skal jeg forholde mig til dette og hvordan kan jeg undgå problemet ?

/Websam