Ya
Cita:
Iniciado por _Puma_ 
Dim Cnn As New SqlConnection("Cadena de conexion")
Dim Cmd As New SqlCommand("SELECT ...", Cnn)
Dim Rst As SqlDataReader
Cmd.Connection.Open()
rst = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
rst.close
Algunas pistas... Tienes dos variables Cnn y Cmd... por allí como que te falta cerrar una de ellas
