Dim Lst As New List(Of String) cmd.CommandText = "S elect [ccode],[ccode_name],[iyear],[bend],[bbank],[bcash] F ROM {code} where bbank=0 And bcash=0 and ccode In ('" & String.join("','",Lst.tparray) & "') And iyear=" & val(e.Form.Controls("DateTimePicker1").value)