Thx every1 for ur help.

I found the solution.

I thought I should post it.

Dim rm As String
Dim a as Integer
For a = 0 To list1.ListCount-1
rm = rm & list1.List(a)
Next
rs!RM = rm

rs.Update