er det muligt at hente alle kontonr.

hejsa jeg har en kode der ligger et bestem nummer liggende i det felt jeg dobbeltklikker på ind i en tabel og smider "værdien" ind i tekstbox , er det muligt at tage alle felterne i den formular og ligge dem ind i tekstboxen ved et tryk
nuværende kode

___________
On Error GoTo err
Dim dbs As Database
Dim rst As DAO.Recordset
 
   
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("Select * from tbl_udskriv ", dbOpenDynaset)
    With rst
        .AddNew
        !Kontonr = Me.Kontonr
        .Update
    End With


   
    'Empty the field
  Me.Tekst16 = ""

   
       
          Do While Not rst.EOF
          Me.Tekst16 = Me.Tekst16 & "," & rst!Kontonr
          rst.MoveNext
         
Loop
rst.Close
dbs.Close
If Me.Tekst16 = "" Then
Me.Requery
Else
Me.Tekst16.Requery
End If
err: