Execute Reader: la propiedad Connection no se ha inicializado

[alan_69niupi]

el detalle esta en tus consultas.

MsgBox("ListarCombo")
'esta line te marca el error
sql.CommandText = String.Format("Select * from AKOTEI")
'seria asi. tendrias que declarar sql como String, y declarar un DataAdapter para ejecutar ahi 'la consulta
'ejemplo:
'dim data as new OleDb.OleDbDataAdapter(consultaSQL, conexion)
sql=String.Format("consulta")
datos = sql.ExecuteReader()
If datos.Read Then
UsuariosAKO = datos("Nom_Usuario")
ListarCombo = True
Else
datos.Close()
ListarCombo = False
End If

te muestro mi codigo para llenar combos.

conec.conexion()
Dim cliente As OleDb.OleDbCommand

Dim dc As OleDb.OleDbDataReader
cbxNomCliente.Items.Clear()
cliente = New OleDb.OleDbCommand("Select NOMBRE from CATCLIENTES ", conec.con)
dc = cliente.ExecuteReader()

While dc.Read()
Me.cbxNomCliente.Items.Add(dc(0))
End While

dc.Close()
conec.con.Close()

espero haberte ayudado y no haberte confundido mas
saludos