[Resolvido]ListBox desacoplada e carregada via ADOBD, carrega com as colunas desorganizada/fora da ordem

Bom dia, Prezados

Estou realizando um projeto aonde carrego uma listbox via ADOBD de um BackEnd, a carga ocorre de forma correta. O que está adverso é a disposição das colunas, as mesmas estão retornando desordenadas fora do escopo que organizei na SQL.

Há alguma forma da listbox retornar as colunas conforme organização da SQL.

Código:

Private Sub Form_Open(Cancel As Integer)

   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim strSQL As String

   Set conn = CurrentProject.Connection
   Set rst = New ADODB.Recordset

strSQL = "SELECT PK_BASE_LOTE_ECOMEX, LOTE, PO, FORNECEDOR, DATA_CHEGADA, DIAS_PARADOS, COMPRADOR, AREA_COMPRADOR, NUMERO_ANALISTA_IMPEX, FILTRO_ANALISTA_IMPEX, FILTRO_FLUXO_COMPRAS FROM T_BASE_LOTE_ECOMEX;"

   With rst
       Set .ActiveConnection = conn
       .Source = "\\inet.tam.com.br\tam\Dados\Suprimentos e Logistica\Impex\DataBaseCompex\BackUp\DataBase.accdb"
       .LockType = adLockOptimistic
       .CursorType = adOpenKeyset
       .Open strSQL
   End With
   
   Set Me.listaLotesPendente.Recordset = rst

End Sub

Com a ajuda do mestre Avelino, tive a orientação para solução da adversidade

basta adicionar a linha

.CursorLocation = adUseClient


Re: Organizar retorno de uma ListBox carregada por ADOBD RecordSet
Mensagempor Avelino Sampaio » 31 Ago 2016, 14:00

Fábio,

acrescente a parte em vermelho e teste:

Código:
...
With rst
Set .ActiveConnection = conn
.Source = "\\inet.tam.com.br\tam\Dados\Suprimentos e Logistica\Impex\DataBaseCompex\BackUp\DataBase.accdb"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open strSQL
End With
...