Problema com listbox

[williamjda]

AMIGOS ESTOU COM O SEGUINTE PROBLEMA.

Tenho um formulario que contem campos textbox que são preenchidos e depois são gravados no bd em bloco de notas. Bom neste formulário tem um listbox que me mostra os ultimos registros gravados no meu formulário, tipo uma lista telefonica.

Criei um campo para pesquisar. quando digito um nome e clico em pesquisar o botão oculta os itens da listbox gravado no meu formulário e me tras a resposta da pesquisa até ai tudo normal. o problema é que quando ele retorna o resultado exato da pesquisa retornando apenas um registo e eu seleciono este registro ele deveria me mostrar nos textbox do formulário os dados selecionados porem ele me mostra sempre o 1º registro gravado que esta em oculto. quando eu pesquiso um valor que há em mais de um registro e ele me retorna 2 ou mais resultados e eu seleciono um, ele me mostra os dados correto nos textbox.

alguém poderia me ajudar a resolver esta questão. veja o codigo do meu botão pesquisar abaixo:

Código (vb.net): [Seleccione]
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFILTRO.Click
        If Not filtro_ligado Then
            ListBox1.Items.Clear()
            filtro_ligado = True
            BTFILTRO.BackColor = Color.LightBlue

            Le_arquivo()
            BTNOVO.Enabled = False
            BTALTERA.Enabled = True
            BTEXCLUIR.Enabled = False
            BTAVANÇAR.Enabled = False
            BTVOLTAR.Enabled = False
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
            TextBox10.Text = ""
            TextBox11.Text = ""
            TextBox12.Text = ""
            TextBox13.Text = ""
            TextBox14.Text = ""
            TextBox15.Text = ""
            TextBox16.Text = ""
            TextBox17.Text = ""
            TextBox18.Text = ""
            TextBox19.Text = ""
            TextBox20.Text = ""
            TextBox21.Text = ""
            TextBox22.Text = ""
            TextBox23.Text = ""
            TextBox24.Text = ""
            TextBox25.Text = ""
            TextBox26.Text = ""
            TextBox27.Text = ""
            TextBox28.Text = ""
            TextBox29.Text = ""
            TextBox30.Text = ""
            TextBox31.Text = ""
            TextBox32.Text = ""
            TextBox33.Text = ""
            TextBox34.Text = ""
            TextBox35.Text = ""
            TextBox36.Text = ""
            MaskedTextBox1.Text = ""
            MaskedTextBox2.Text = ""
            MaskedTextBox3.Text = ""
            MaskedTextBox4.Text = ""
            TextBox1.Focus()
        Else
            filtro_ligado = False
            TextBox7.Text = ""
            BTFILTRO.BackColor = SystemColors.Control
            Le_arquivo()
            BTNOVO.Enabled = True
            BTALTERA.Enabled = True
            BTEXCLUIR.Enabled = True
            BTAVANÇAR.Enabled = True
            BTVOLTAR.Enabled = True
        End If
    End Sub

[raphael_suporte]

teria que verificar a função le_arquivo, pois pelo que entendi ela é quem preenche os dados, e nela pode ter algum controle por resultado.