【新手求助】把dataset中的数据增加到sql数据库

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

只能添加 第一个列的数据了   要怎么才能复选列呢  难道要写多次ItemArray()  = =！