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()