Visual Basic.NET - Error con Datareader

Hola

Tengo el siguiente codigo con el siguiente orden:

Dim conexion As New NpgsqlConnection()
Dim comando, comando1 As New NpgsqlCommand()
Dim lector, lector1 As NpgsqlDataReader

Try
conexion.ConnectionString = cad_con
conexion.Open()

comando.Connection = conexion
comando.CommandType = CommandType.Text
comando.CommandText = "select DISTINCT(palet) From m_palets"

lector = comando.ExecuteReader()

While lector.Read()

'Oculto el palet de 0 si no devuelve nada
If Convert.ToString(lector(0)) = "" Then
OcultarPalet((0))
'
Exit Sub
End If

p = CInt(lector(0))
pindex = pindex + 1


comando1.Connection = conexion
comando1.CommandType = CommandType.Text
comando1.CommandText = "SELECT matricula,bultos FROM m_relconp WHERE palet=" & CStr(p)

lector1 = comando1.ExecuteReader()

While lector1.Read()

'meto el item, primero la cantidad
Palet_ed(pindex).Item(0, i).Value = Convert.ToString(lector1(1))
'luego el nombre del articulos
Palet_ed(pindex).Item(0, i).Value = Convert.ToString(lector1(0))
'en el tag guardo la matricula
Palet_ed(pindex).Item(0, i).Tag = matri

End While

lector1.Close()

MostrarPagina() 'me voy a la pagina

End While

lector.Close()

Me da el siguiente error y no se como solucionarlo:
"There is already open datareader associated with this command which must be closed first"

1)El problema lo tienes con el Exit sub que esta dentro de tu instrucción if, que sale del procedimiento sin que se cierre tu DataReader quedando este abierto, ahi también tendrías que poner un close de tu DataReader.
2)Y el mensaje te lo dice claramente que ya tienes un DataReader abierto y debes cerrarlo primero antes de usar el otro, esto indica que no puedes usar dos DataReader en simultaneo.
Yo verificaría esas dos opciones.
Saludos

Con este codigo usas el datareader y al salir del using cierra automaticamente el reader.

Using reader As DbDataReader = Comando.ExecuteReader(CommandBehavior.Default Or
CommandBehavior.CloseConnection)
Do While reader.Read

Dim valor As String = reader.GetString(0)

'tu codigo...

Loop

End Using

Aunque un poco tarde pero bueno por si alguien lo lee y tiene el mismo problema se soluciona añadiendo en la cadena de conexion lo siguiente:

;multipleactiveresultsets=true

Con esto se puede hacer varios reader juntos.

Un saludo.