Kod:
Private Sub Komut163_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim toplam, kayıt As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from tblson")
toplam = ""
Do While Not rst.EOF
toplam = rst(3) & " " & rst(1) & " ,"
kayıt = kayıt + toplam
rst.MoveNext
Loop
Me.txtkacak = kayıt
End Sub
Kodu aynı sıkıntıyı yaşayan olursa diye paylaşmak istedim. Sorunum çözümlenmiştir, teşekkür ederim