Need Advise. Problem With Connection Pool. Function Returning SqlDataReader.

Halo all

 

I have a problem with "timeout expired. Thei timeout periode elapsed prior to obtaining a connection from the pool. This may have occured because all pooled  connections were use  and max pool size was reached"

Then i explore and found out that i did not close my SqlDataReader, SqlDataAdapter, SqlCommand or my connection.

 

But i have a function that return a  SqlDataReader.

Is this function will cause a connection problem?

 

Thanks in advance

 

 

        Public Function GetDataReader(ByVal strSQL As String, ByVal DBCon As DB.DBConnection) As SqlDataReader
            Dim MyCommand As SqlCommand = New SqlCommand(strSQL, DBCon.GetConnection())

            If DBCon.GetConnection().State = ConnectionState.Closed Then
                DBCon.GetConnection().Open()
            End If

            Dim dr As SqlDataReader = MyCommand.ExecuteReader()

            Return dr

            dr.Close()

        End Function