Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select taskno,tcolname,tcolcode,tcolcaption,tcolexpression from {task_template} " & _
"where taskno=\'" & Vars("gtasklistno") & "\' order by tcolindex"
dt = cmd.ExecuteReader()
Dim s1 As String
Dim s0 As String
For Each r1 As DataRow In dt.DataRows