新增多個字段和值

有時候，將欄位及其對應值的陣列傳遞至 AddNew 方法可能更有效率，而不是為每個新欄位多次設定 Value。 如果 FieldList 是陣列，Values 也必須是具有相同成員數目的陣列;否則，會發生錯誤。 欄位名稱的順序必須與每個陣列中的欄位值順序相符。 下列程式碼會將欄位和數值的陣列傳遞至 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