emailadressen uit msaccess kolom in 1 textbox

[drla2004]

In vb2010 ben ik een klein progje aan het maken, ik heb een textbox, combobox.

De combobox items worden dynamisch geladen.
De msaccess database heeft 3 kolommen (excl id), groupname, realname, emailaddress.

Wanneer ik in de combobox een item selecteer, en records in de database hebben dezelfde naam in de groupname kolom, dan moeten alle email adressen (gescheiden door een ";" ) in de textbox komen.

Ik heb nu al de volgende code, maar deze werkt nog niet goed, ik hoop dat iemand me kan helpen?

Private Sub ToAddressesSelect()
        Try
            Dim cmd As OleDbCommand = New OleDbCommand("SELECT Groupname, Emailaddress FROM email WHERE Groupname = '" + ComboBox1.SelectedText + "'", con)
            con.Open()
            Dim dr As OleDbDataReader = cmd.ExecuteReader()
            If dr.HasRows = True Then
                For Each row As DataRow In dr
                    'While dr.Read()
                    TextEdit1.Text = dr("Emailaddress").ToString()
                    'End While
                Next
            Else
                MessageBox.Show("No data found!")
            End If
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub EmailSonglist_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DevExpress.UserSkins.BonusSkins.Register()
        DevExpress.UserSkins.OfficeSkins.Register()

        Dim fileI As FileInfo = New FileInfo(Application.StartupPath + "\groups.xml")
        If fileI.Exists Then
            Dim doc As XDocument = XDocument.Load(Application.StartupPath + "\groups.xml")
            ComboBox1.Items.Add("To...")
            For Each element As XElement In doc.Descendants("Group")
                ComboBox1.Items.Add(element.Value)
            Next
            ComboBox1.SelectedIndex = 0
        Else
            MessageBox.Show("There is no addressbook available, please create one.")
            Process.Start(Application.StartupPath + "\Addressbook.exe")
        End If
    End Sub

Alvast bedankt.

 

[drla2004]

is er niemand die mij kan helpen??