xSQL = "Select SiparişNu from T_SIPARİŞ"
Set rs = CurrentProject.Connection.Execute(xSQL)
'recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
xGrup = rs.getstring(, , , ", ", "")
xKes = InStrRev(xGrup, ",") - 1
birlik = Left(xGrup, xKes)
Me.SraYaz = birlik
gibi dener misiniz?
Bilgisayar olmadığından incelemedim ama yazdığınız koda bakarak