Take the values from a table into a string? How?

I have a table in access with a lot of rows. Now I want theese rows (every row in the table is a name) into a string. Every row should be separate with an ;. How do i do that?

VB Code:

Private Sub Command1_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim s As String
    Set db = OpenDatabase("C:\TEST.MDB")
    Set rs = db.OpenRecordset("Table1")
    While Not rs.EOF
        s = s & rs("Field1") & ";"
        rs.MoveNext
    Wend
    Debug.Print s
End Sub