Aggiunta di campi e valori multipli

In alcuni casi, potrebbe essere più efficiente passare una matrice di campi e i relativi valori corrispondenti al metodo addNew anziché impostare Valore più volte per ogni nuovo campo. Se FieldList è una matrice, Values deve essere anche una matrice con lo stesso numero di membri; in caso contrario, si verifica un errore. L'ordine dei nomi dei campi deve corrispondere all'ordine dei valori dei campi in ogni matrice. Il codice seguente passa una matrice di campi e una matrice di valori al metodo 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