VB.NETでフィールドを指定してinsert

 Dim Icolna As String = ""
        Dim scolna As String = ""
        If wk_msg = "" Then
            Try
                strSQL = "SELECT column_name FROM information_schema.columns " _
                       & " WHERE table_name = 'KK_sokata_HA'" _
                       & " ORDER BY table_name,ordinal_position"
                cmSQL = New SqlCommand(strSQL, cnSQLS) 'コマンド
                cmSQL.Transaction = trSQL
                drSQL = cmSQL.ExecuteReader 'データリーダの使用
                Do While drSQL.Read

                    If Icolna <> "" Then
                        Icolna = Icolna & ","
                    End If
                    Icolna = Icolna & drSQL("column_name").ToString

                    If scolna <> "" Then
                        scolna = scolna & ","
                    End If
                    If drSQL("column_name").ToString.ToUpper = "KTNO" Then

                        scolna = scolna & "KTNO = " & wk_KTNO
                    Else

                        scolna = scolna & drSQL("column_name").ToString
                    End If

                Loop
                drSQL.Close()

            Catch ex As SqlException
                wk_msg = "SELECT:KK_sokata_HA" & ex.Message
            Catch ex As Exception
                wk_msg = "SELECT:KK_sokata_HA" & ex.Message
            End Try
        End If
        If wk_msg = "" Then
            Try
                strSQL = " INSERT INTO KK_sokata_HA " _
                    & " (" & Icolna & " )" _
                    & " SELECT " & scolna _
                    & " FROM KK_sokata " _
                    & " WHERE KYM = " & wk_KYM & "  And HAN = " & wk_han & "  And KBN = 0"
                cmSQL = New SqlCommand(strSQL, cnSQLS)
                cmSQL.Transaction = trSQL
                ret = cmSQL.ExecuteNonQuery
                If ret = -1 Then
                    wk_msg = "DELETEDB:KK_sokata_HAエラー"
                End If

            Catch ex As SqlException
                wk_msg = "INSERTB:KK_sokata_HA" & ex.Message
            Catch ex As Exception
                wk_msg = "INSERTB:KK_sokata_HA" & ex.Message
            End Try
        End If