(Resolvido) ComboBox exibe registros errados

[rodrigotnoma]

quando efetuo um select em um BD e tento exibir o resultado em um combobox, os registros são mostrados todos em uma linha só e não várias linhas, sendo cada uma um registro do BD.

O código usado no Button "verificar":

Dim sql2 As String
        Dim conn2 As System.Data.OleDb.OleDbConnection
        Dim cmd2 As System.Data.OleDb.OleDbCommand
        Dim dr2 As System.Data.OleDb.OleDbDataReader

        ComboBox1.Text = " "

        sql2 = "select * from produtos1"

        conn2 = New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=c:\inetpub\wwwroot\sistema_natureza\produtos1.mdb;")

        conn2.Open()

        cmd2 = New System.Data.OleDb.OleDbCommand(sql2, conn2)

        dr2 = cmd2.ExecuteReader

        Do While dr2.Read()

            ComboBox1.Text += dr2("nome") & vbCrLf

        Loop

        conn2.Close()

Se não estiver bem explicado é só me avisar.

Obrigado.

Rodrigo

Editado Março 19, 2009 por quintelab
Adicionado BBCode Code

[quintelab]

Mas esta não é a forma correta de alimenta um comboBox, de uma olhada neste artigo: http://www.macoratti.net/vbn_cbo.htm

Abraços...

[rodrigotnoma]

OK quintelab, consegui aprender a forma correta.

Obrigado.

Rodrigo