Dim strSQL As String
Dim MyArray As Variant
Dim element As String

MyArray = Array("1элемент", "2элемент ", "3элемент ", "4элемент ", "5элемент ")

For Each MyArray In element
strSQL = "INSERT INTO Остатки([Модель], [Затрата], Январь, Февраль) values " & _
"('" & Me.[Модель].Value & "', '" & element & "', " & _  ' в element должно записаться текстом название элемента
"'" & IIf(Me.[Месяц].Value = "Январь", element.Value, 0) & "', " & _  ' в element должно записаться значение
"'" & IIf(Me.[ Месяц].Value = "Февраль", element.Value, 0) & "');"
CurrentProject.Connection.Execute (strSQL)

Dim strSQL As String
Dim MyArray As Variant
Dim i As Variant
Dim MyArray1 As Variant
Dim j As Variant

MyArray = Array("ëèñò 09Ã2Ñ á10", "ëèñò 09Ã2Ñ á12", "ëèñò 09Ã2Ñ á20", "ëèñò 09Ã2Ñ á22", "ëèñò ñò.3", "ëèñò íåðæàâåþùèé",)
MyArray1 = Array(Me.[ëèñò 09Ã2Ñ á10].Value, Me.[ëèñò 09Ã2Ñ á12].Value, Me.[ëèñò 09Ã2Ñ á20].Value, Me.[ëèñò 09Ã2Ñ á22].Value, "" _
& Me.[ëèñò ñò.3].Value, Me.[ëèñò íåðæàâåþùèé].Value)

i = 0
j = 0
For i = 0 To 38
    MyArray [i] = MyArray1 [j] ' эту строку выделяет красным
        strSQL = "INSERT INTO Îñòàòêè([3 óðîâåíü âàãîíà], [Âèä çàòðàò], ßíâàðü, Ôåâðàëü, Ìàðò, Àïðåëü, Ìàé, Èþíü, " & _
        "Èþëü, Àâãóñò, Ñåíòÿáðü, Îêòÿáðü, Íîÿáðü, Äåêàáðü) values " & _
        "('" & Me.[3ÓðÂàã].Value & "', '" & i & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "ßíâàðü", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Ôåâðàëü", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Ìàðò", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Àïðåëü", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Ìàé", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Èþíü", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Èþëü", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Àâãóñò", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Ñåíòÿáðü", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Îêòÿáðü", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Íîÿáðü", j, 0) & "', " & _
        "'" & IIf(Me.[Ìåñÿö].Value = "Äåêàáðü", j, 0) & "');"
        CurrentProject.Connection.Execute (strSQL)
    i = i + 1
    j = j + 1
Next i

Dim strSQL As String
Dim MyArray As Variant
Dim i As Variant
Dim MyArray1 As Variant
Dim j As Variant

MyArray = Array("лист 09Г2С б10", "лист 09Г2С б12", "лист 09Г2С б20", "лист 09Г2С б22", "лист ст.3", "лист нержавеющий")
MyArray1 = Array(Me.[лист 09Г2С б10].Value, Me.[лист 09Г2С б12].Value, Me.[лист 09Г2С б20].Value, Me.[лист 09Г2С б22].Value, "" _
& Me.[лист ст.3].Value, Me.[лист нержавеющий].Value)

i = 0
j = 0
For i = 0 To 38
    MyArray [i] = MyArray1 [j]
        strSQL = "INSERT INTO Остатки([3 уровень вагона], [Вид затраты], Январь, Февраль, Март) values " & _
        "('" & Me.[3 уровень вагона].Value & "', '" & i & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Январь", j, 0) & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Февраль", j, 0) & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Март", j, 0) & "');"
        CurrentProject.Connection.Execute (strSQL)
    i = i + 1
    j = j + 1
Next i

Dim strSQL As String
Dim MyArray As Variant
Dim i As Variant
Dim MyArray1 As Variant
Dim j As Variant

MyArray = Array("лист 09Г2С б10", "лист 09Г2С б12", "лист 09Г2С б20", "лист 09Г2С б22", "лист ст.3", "лист нержавеющий")
MyArray1 = Array(Me.[лист 09Г2С б10].Value, Me.[лист 09Г2С б12].Value, Me.[лист 09Г2С б20].Value, Me.[лист 09Г2С б22].Value, "" _
& Me.[лист ст.3].Value, Me.[лист нержавеющий].Value)

For i = 0 To UBound(MyArray)
    For j = i To UBound(MyArray1)
        strSQL = "INSERT INTO Остатки([3 уровень вагона], [Вид затраты], Январь, Февраль, Март) values " & _
        "('" & Me.[3 уровень вагона].Value & "', '" & MyArray(i) & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Январь", MyArray(j), 0) & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Февраль", MyArray(j), 0) & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Март", MyArray(j), 0) & "');"
        CurrentProject.Connection.Execute (strSQL)
    Next j
Next i

Dim strSQL As String
Dim MyArray As Variant
Dim i As Variant
Dim MyArray1 As Variant
Dim j As Variant

MyArray = Array("лист 09Г2С б10", "лист 09Г2С б12", "лист 09Г2С б20", "лист 09Г2С б22", "лист ст.3", "лист нержавеющий")
MyArray1 = Array(Me.[лист 09Г2С б10].Value, Me.[лист 09Г2С б12].Value, Me.[лист 09Г2С б20].Value, Me.[лист 09Г2С б22].Value, "" _
& Me.[лист ст.3].Value, Me.[лист нержавеющий].Value)

j = 0
For i = 0 To UBound(MyArray)
    If j = i Then
        strSQL = "INSERT INTO Остатки([3 уровень вагона], [Вид затраты], Январь, Февраль, Март) values " & _
        "('" & Me.[3 уровень вагона].Value & "', '" & MyArray(i) & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Январь", MyArray(j), 0) & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Февраль", MyArray(j), 0) & "', " & _
        "'" & IIf(Me.[Месяц].Value = "Март", MyArray(j), 0) & "');"
        CurrentProject.Connection.Execute (strSQL)
    Enf If
    j = j + 1
Next i