Dim struser As New List(Of String) struser = Session("chooseuser") strruser = ""
For a = 0 To struser.Count - 1 If a = 0 Then strruser = "'" struser.Item(a).ToString.Trim "'" Else strruser = strruser " , " "'" struser.Item(a).ToString.Trim "'" End If Next
