新增多個欄位和值

有時將欄位陣列和其對應的值傳入 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