Dúvida com exportação de dados - LISTBOX

[Bruno Pedrette]

Boa tarde pessoal,

Sou novo no forúm e necessito de uma pequena ajuda.

Estou com um pequeno problema em relação a exportação de alguns dados a partir de um LISTBOX.

Já consegui realizar a extração através de queries especificas, porém somente neste caso estou enfrentando um problema.

Preciso extrair as informação dos dados do banco a partir de itens do listbox,

necessito que ele selecione o primeiro item pegue no banco, grave e faça com o próximo a mesma coisa e assim sucessivamente até o final do array.

Segue código:

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Dim exportaDados, nome As String
        Dim array As Integer = 0
        Dim index As Integer

        While array <= Label4.Text

            index = ListBox1.SelectedIndex = -1
            nomeFundo = ListBox1.Items(array)

            'Inicia a conexão com o banco.
            conexao.Open()

            'Cria uma execução para esta conexão.
            Dim cmd As New OleDb.OleDbCommand("SELECT * FROM NOMETABELA WHERE (CAMPO LIKE '%" & nome & "%')", conexao)
           
            'Executa a consulta.
            Dim dr As OleDbDataReader = cmd.ExecuteReader()
            exportaDados = ("NOME") + (";") + ("CNPJ") + (";") + ("DATA_INIC") + (";") + ("DATA_TRANSF") + (";") + ("RESSALVA") + (";") + ("ENFASE") + (";") + ("NOME_GESTOR") + (";") + ("DATA_BASE") + (";") + ("ANO_" + TextBox1.Text)

            If dr.HasRows Then

                dr.Read()
                exportaDados = exportaDados + ("" & vbCrLf & "") + dr.Item("NOME") + (";") + dr.Item("CNPJ") + (";") + dr.Item("DATA_INIC") + (";") + dr.Item("DATA_TRANSF") + (";") + dr.Item("RESSALVA") + (";") + dr.Item("ENFASE") + (";") + dr.Item("NOME_GESTOR") + (";") + dr.Item("DATA_BASE") + (";") + dr.Item("ANO_" + TextBox1.Text)

            End If
            'Encerra a conexão com o banco.
            conexao.Close()

            array += 1

        End While

        SaveFileDialog1.ShowDialog()

        Dim Salvar As New IO.StreamWriter(SaveFileDialog1.FileName)
        Salvar.Write(exportaDados)
        SaveFileDialog1.FileName = " "
        Salvar.Close()

        MsgBox("Dados salvos com sucesso !")

    End Sub

Desde de já agradeço,

Bruno Pedrette