Bilgisayar olmadığından incelemedim ama yazdığınız koda bakarak

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?