Dim j As Integer
For j = 0 To dst.Tables("kc_name").Columns.Count
Dim a = (dst.Tables("kc_name").Rows(j).ItemArray(0).ToString)
Dim str As String
str = "insert into kc_name(id) values (" + a + ")"
' MessageBox.Show(a)
Dim cmd As SqlCommand = New SqlCommand(str, conn)
cmd.ExecuteScalar()
Next
conn.Close()