Rather crude way of doing things, but just check out if it gives some guidelines :
Code:
SELECT
myTable.ID,
myTable.Field1,
myTable.Field2,
myTable.Field3,
myTable.Field4,
myTable.Field5,
myTable.Field6,
[Field1] & "," & [Field2] & "," & [Field3] & "," & [Field4] & "," & [Field5] & "," & [Field6] & "," AS Field1To6,
Replace([Field1To6],"ok,","") AS RemoveOK,
Len([RemoveOK]) AS LengthOfString,
IIf([LengthOfString]<>0,Left([RemoveOK],[LengthOfString]-1),"") AS WitoutEndTrailingComma
FROM
myTable;
Thanks