[Resolvido]Erro em carregar Listbox

Boa noite.
Esta ocorrendo um pequeno erro no preenchimento da listbox.
Quando abro o formulário os dados da listbox aparecem certinhos. porém ao clicar em pesquisar a textbox (txt_localiza), ela é habilitada e ao digitar o numero do documento que será feito a alteração, na listbox, é carregada com um erro, o valor que tem que ficar na coluna onde fica o fisico ela vai para onde aparece o responsável , e onde fica o responsável

Veja

Boa noite.
A principio funcionou, mas em especifico para esta tela de entrada de produtos, preciso que ele pegue somente os itens que contenha valores na coluna entrada, ou seja, itens que seja de movimentação de entrada e/ou devolução. Tentei incluir neste linha abaixo, e não funcionou

Código:


Private Sub CarregaLista()
    Me.Lst_Entradas.RowSource = "SELECT Id_SeqLcto,Data_Lcto,Num_Doc,Cod_Produto,Desc_Produto,Entrada_Produto>0,Fisico_Produto,Liberado_Por,Obs_Mvto FROM csConsultaEntradaSaida"
End Sub





Para o campo de busca...

Código:

Private Sub Txt_Localiza_AfterUpdate()
    Me.Lst_Entradas.Enabled = True
    Me.Lst_Entradas.RowSource = "SELECT Id_SeqLcto,Data_Lcto,Num_Doc,Cod_Produto,Desc_Produto,Entrada_Produto,Fisico_Produto,Liberado_Por,Obs_Mvto FROM csConsultaEntradaSaida Where Num_Doc Like '*" & Me.Txt_Localiza.Text & "*' and Entrada_Produto >0"
End Sub
End Sub

Ao abrir o form

Código:


Private Sub CarregaLista()
    Me.Lst_Entradas.RowSource = "SELECT Id_SeqLcto,Data_Lcto,Num_Doc,Cod_Produto,Desc_Produto,Entrada_Produto,Fisico_Produto,Liberado_Por,Obs_Mvto FROM csConsultaEntradaSaida Where Entrada_Produto >0"
End Sub

ou

Funcionou perfeitamente.
Obrigado.

Acrescentei em um dos comando, para que ao carregar ele pegue os lançamentos em ordem decrescente de data. Porém não funcionou

Código:


Private Sub Txt_Localiza_AfterUpdate()
    Me.Lst_Entradas.Enabled = True
    Me.OrderBy = "data_lcto DESC"
    Me.OrderByOn = True
    Me.Lst_Entradas.RowSource = "SELECT Id_SeqLcto,Data_Lcto,Num_Doc,Cod_Produto,Desc_Produto,Entrada_Produto,Fisico_Produto,Liberado_Por,Obs_Mvto FROM csConsultaEntradaSaida Where Num_Doc Like '*" & Me.Txt_Localiza.Text & "*' and Entrada_Produto >0"
End Sub



Código:

Private Sub Txt_Localiza_AfterUpdate()
    Me.Lst_Entradas.Enabled = True
    Me.Lst_Entradas.RowSource = "SELECT Id_SeqLcto,Data_Lcto,Num_Doc,Cod_Produto,Desc_Produto,Entrada_Produto,Fisico_Produto,Liberado_Por,Obs_Mvto FROM csConsultaEntradaSaida Where Num_Doc Like '*" & Me.Txt_Localiza.Text & "*' and Entrada_Produto >0 Order By Data_Lcto Desc"
End Sub


Código:

Private Sub CarregaLista()
    Me.Lst_Entradas.RowSource = "SELECT Id_SeqLcto,Data_Lcto,Num_Doc,Cod_Produto,Desc_Produto,Entrada_Produto,Fisico_Produto,Liberado_Por,Obs_Mvto FROM csConsultaEntradaSaida Where Entrada_Produto >0 Order By Data_Lcto Desc"
End Sub

Fiz alguns testes e funcionou