使用vba批量插入SQL Server

Question

我试图在一个SQL插入语句中将大量值插入SQL Server。使用我的VBA代码调用Proc Stock 例如：

[... definitions of variables ...]
     If Not dico Is Nothing Then
        For Each current_id In dico.Keys
            Set prm = .CreateParameter(CStr(current_id), adVarChar, adParamInput, str_length, current_value)
            .Parameters.Append prm
        Next current_id

当我有一个字典时，这段代码完美无缺 但是当我有一个字典数组时，prm是否包含值列表（dico中的所有值）而不是一个值（.Parameters成为列表列表）？还有其他方法吗？

谢谢，