Foros del web, para los que viven de bits

Amigos tengo un problema

tengo el siguiente codigo

Dim nwindConn As SqlConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;Initial Catalog=northwind")

Dim selectCMD As SqlCommand = New SqlCommand("SELECT CustomerID, CompanyName FROM Customers", nwindConn)
selectCMD.CommandTimeout = 30

Dim custDA As SqlDataAdapter = New SqlDataAdapter
custDA.SelectCommand = selectCMD

nwindConn.Open()

Dim custDS As DataSet = New DataSet

custDA.Fill(custDS, "Customers")

nwindConn.Close()
nwindConn.Dispose()

custDS.Dispose()
custDA.Dispose()

nwindConn = Nothing
custDS = Nothing
custDA = Nothing


como veran es un pequeño ejemplo de apertura de una base de datos, el problema que tengo es que este codigo deja abierta dos conexiones en la base de datos, quisiera liberarlas , ocmo las hago. Tengo una aplicaicon mas grande quemaneja codigo parecido y cuando se conectan generan varias conexiones abiertas. Pro favor, se los agradeceria bastante.

Carlos