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