Dim myDt As SqlCommand
Dim myStringSql As String
Dim myList As New List(of String)
myList.add("a")
myList.add("b")
mystringSql = "s-elect * from {表A} where 第四列 in ('" & String.Join("','", myList.ToArray) & "')"
msgbox(mystringSql)