添加多个字段和值

有时，将字段数组及其相应的值传递给 AddNew 方法可能更高效，而不是为每个新字段设置 值 多次。 如果 FieldList 是数组，则 值 还必须是成员数相同的数组;否则，将发生错误。 字段名称的顺序必须与每个数组中的字段值的顺序匹配。 以下代码将字段数组和值数组传递给 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