Una disculpa..es un error mio confundi las variables.
Lo que tienes que hacer es
Código:
Dim strSQL As String = "Select * from tabla"
Dim cmd As New SqlCommand(strSQL, New SqlConnection(AppSettings("cnnDB")))
Dim reader As SqlDataReader
cmd.Connection.Open()
reader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If reader.Read Then
field1 = reader.GetDecimal(0)
field2 = reader.GetString(1)
End If
reader.Close()
Ahora si el reader cierra automaticamente el comando, el cual a su ves cierra la coneccion.