Execute Reader: la propiedad Connection no se ha inicializado

[freemanworld]

He modificado el código para que me dé algo más de información añadiendo:
MsgBox(conexionBD.State)

Si sale 1 es que está conectado pero si sale 0 no está conectado.
Pues bien, al ejecutar dicho programa Cuando va a conectar me dice que si que está conectada pero a la hora de llegar a :

Código:

Public Sub ListarUsuarios()
        conectar()
        Try

            MsgBox(conexionBD.State)
            sql.CommandText = String.Format("Select Nom_Usuario from AKOTEI ORDER BY Nom_Usuario")
            datos = sql.ExecuteReader()

        Catch ex As Exception

            'En caso de excepcion...visualizar el texto en una etiqueta
            MsgBox(conexionBD.State)
            MsgBox("ErrorEnLaFuncion Texto: " + ex.Message)


        End Try
    End Sub

Me da el siguiente error:

Execute reader requierer una conexión abierta y disponible. El estado actual de la conexión es cerrada

¿alguna idea?
Gracias