如何一次性吧数组写到数据表中

遍历数组取得其值，然后用insert into或ado数据集处理即可。假设一个二维数组需要增加的是一个人员表，则：

sub addtb(arr as Variant) 

      dim i as long,ssql as string

      for i=0 to ubound(arr)

            ssql="insert into 人员表 (姓名,性别,生日)  values ('" 

            ssql=ssql & arr(i,0) & "','" & arr(i,1) & "',#" & arr(i,2) & "#)"

            currentdb.execute ssql

      next

end sub