İlahi Mahir bey derler ya, ben de öyle dedim
Tablo ve alan adlarını kendinize uyarlamamışsınız
Aşağıdaki kodu kopyala yapıştır yapın lütfen

Private Sub Komut4_Click()

Dim dbs As DAO.Database

Dim rst As DAO.Recordset

Dim tel As String



Set dbs = CurrentDb

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



tel = ""





With rst



Do While Not .EOF

tel = tel + !Adı & " - "

.MoveNext

Loop

End With



Me.Metin2 = tel

End Sub