如何用SQL的“insert into”语句将数组追加到Access表中

求助各位老师：

我想用以下代码将数组“arr”批量追加到Access的表1中，但总是不成功，不知错在哪里，恳请各位老师指导，谢谢！

Public Sub AAA()
    Dim arr(1 To 5, 1 To 5)
    n = 0
    For x = 1 To 5
        For y = 1 To 5
           n = n + 1
           arr(x, y) = n
        Next y
    Next x
    CurrentDb.Execute "insert into 表1 select * from " & arr & ""
End Sub