Merhablar;

Tablo1 Soru ile alınan bilgilerden  sadece mailleri aralarında noktalı virgül olarak tek bir metinde nasıl birleştirebilirim?

Biraz üzerinde çalıştım. 
form1 üzerinde sağda bulunan tablodan seçtiğim maili sağdaki metin kutusuna aktarıyorum.
Bunu her satır için tekrarlamam gerekiyor. 
Sol tabloda listelenmiş bütün satırlardaki mail lerin tamamı tek seferde metin kutusuna aktarılabilir mi?

access 2003 halini de ekleyebilirmisiniz.

Private Sub Komut5_Click()



   Dim dbs As DAO.Database

    Dim rst As DAO.Recordset

    Dim Mail As String

    

    Set dbs = CurrentDb

    Set rst = dbs.OpenRecordset("Select * from [Tablo1 Sorgu]")



    Metin3 = ""



    With rst



    Do While Not .EOF

    Mail = Mail + !Mail & ";"

    .MoveNext

    Loop



    End With



    Me.Metin3 = Mail





End Sub

Teşekkür ederim Tekinuygun. eline sağlık.

Rica ederim.