Cerrar conexión a BD

[juanes222]

Saludos, tengo un problema y es que estoy retornando un DataReader desde una función, pero el problema es que no se comoe s la forma de cerrar la conexióny se me esta saliendo el sigueinte error:


Valor de tiempo de espera caducado. El período de tiempo de espera expiró antes de obtener una conexión del grupo. Esto puede suceder porque todas las conexiones de la agrupación estaban en uso y se alcanzó el máximo tamaño del grupo.

La función es la siguiente:

Function drEnc() As System.Data.IDataReader
Dim connectionString As String = strConectionString
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)

Dim queryString As String = "SELECT [Encuesta].[Cod_Enc], [Encuesta].[Nom_Enc] FROM [Encuesta] WHERE ([Encuest" & _
"a].[Est_Enc] = 'Activa')"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

dbConnection.Open()
Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)

Return dataReader

End Function


Como debo cerrar esa conexión?...es que si la cierro antes de terminar la función al tratar de acceder a los datos me saca un erroro o lo que debo hacer es drEnc.Close()?

Gracias