With ListView3
        For i = 1 To .ListItems.count
            field = .ListItems(i).Text
            Call cn.Execute(CommandText:="INSERT INTO formats_descr (" & _
              "CCN_f_key,Formats_key,Field) VALUES ('" & k & "', '" & j & "'" & _
              ",'" & field & "') ")
            For count = 1 To .ColumnHeaders.count - 1
                column = .ColumnHeaders(count + 1)
 
                Text = .ListItems(i).SubItems(count)
                Call cn.Execute(CommandText:="UPDATE formats_descr SET  " & _
                  column & "  = '" & Text & "' WHERE (CCN_f_key = " & k & ")" & _
                  "AND (formats_key = " & j & ") ")
            Next count
            k = k + 1
        Next i
    End With