Agregar varios campos y valores

En ocasiones, puede ser más eficaz pasar un array de campos y sus valores correspondientes al método AddNew, en lugar de establecer el Valor varias veces para cada campo nuevo. Si fieldList es una matriz, Valores también debe ser una matriz con el mismo número de miembros; de lo contrario, se produce un error. El orden de los nombres de campo debe coincidir con el orden de los valores de campo de cada matriz. El código siguiente pasa una matriz de campos y una matriz de valores al método AddNew.

'BeginAddNew2
    Dim avarFldNames As Variant
    Dim avarFldValues As Variant

    avarFldNames = Array("CompanyName", "Phone")
    avarFldValues = Array("Sample Shipper 2", "(931) 555-6334")

    If objRs1.Supports(adAddNew) Then
        objRs1.AddNew avarFldNames, avarFldValues
    End If

    'Re-establish a Connection and update
    Set objRs1.ActiveConnection = GetNewConnection
    objRs1.UpdateBatch
'EndAddNew2