Option Explicit
 
' für 3 dimensionales array gegebenenfalls anpassen
Dim testarray(9, 9, 9) As Long
 
Private Sub Form_Load()
 
' test daten einfügen
   Dim x1 As Integer
   Dim x2 As Integer
   Dim x3 As Integer
 
   For x1 = 0 To 9
      For x2 = 0 To 9
         For x3 = 0 To 9
            testarray(x1, x2, x3) = x1 + x2 * 1000 + x3 * 1000000
         Next x3
      Next x2
   Next x1
 
'lokale datenbank anlegen
   Dim RS As ADODB.Recordset
 
   Set RS = New ADODB.Recordset
   With RS
      .CursorLocation = adUseClient
      .CursorType = adOpenStatic
      .LockType = adLockOptimistic
      .Fields.Append "x1", adInteger   '=long Wert
      .Fields.Append "x2", adInteger
      .Fields.Append "x3", adInteger
      .Fields.Append "value", adInteger
      .Open
   End With
 
' 3 dimensionales feld in db speichern
   With RS
   For x1 = 0 To 9
      For x2 = 0 To 9
         For x3 = 0 To 9
            .AddNew
            .Fields(0).Value = x1
            .Fields(1).Value = x2
            .Fields(2).Value = x3
            .Fields(3).Value = testarray(x1, x2, x3)
            .Update
         Next x3
      Next x2
   Next x1
   End With
End Sub