Function TmDgr(xID As Long) As String
    Set rs = CurrentProject.Connection.Execute("select [yardim_turu],[yardim_tarihi] from tbl_1 where kimlik_no=" & xID)
TmDgr = rs.GetString(, , "  :  ", Chr(13) & Chr(10))
End Function

SELECT tbl_1.kimlik_no, tbl_1.adi, tbl_1.soyadi, TmDgr([kimlik_no]) AS Sonuç
FROM tbl_1
GROUP BY tbl_1.kimlik_no, tbl_1.adi, tbl_1.soyadi;

SELECT tbl_1.kimlik_no, tbl_1.adi, tbl_1.soyadi, TmDgr([kimlik_no]) AS Sonuç INTO Tbl_Tmp
FROM tbl_1
GROUP BY tbl_1.kimlik_no, tbl_1.adi, tbl_1.soyadi;