首先定义数组，我是同事session传值的
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
然后就可以吧strruser带入到sql语句中使用。
原文：http://www.jb51.net/article/35188.htm