Как переделать код для ACCESS?

Option Compare Database
Private Sub Кнопка2_Click()
Dim i&
Set icell = ActiveCell
For i = 3 To Range("Form1.ДЛИНА НА БАРАБАНЕ").End(xlDown).Row
    Range("Form1.ДЛИНА НА БАРАБАНЕ" & i).Select: Summands
Next
icell.Select
End Sub

Public Sub Summands()
Dim x, y, i&, j&, k&, l&, m&, n&
x = Range("Form1.ДЛИНА ПРОЕКТНАЯ" & Range("Form1.ДЛИНА ПРОЕКТНАЯ").End(xlDown).Row).Value
y = Range("Form1.ДЛИНА НА БАРАБАНЕ2" & Range("Form1.ДЛИНА НА БАРАБАНЕ2").End(xlDown).Row).Value
ac = ActiveCell.Value
For i = 1 To UBound(x)
    If x(i, 1) = ac Then
        If y(i, 1) = 0 Then
            y(i, 1) = ac
            GoTo es
        End If
    End If
    For j = i + 1 To UBound(x)
        If Round(x(i, 1) + x(j, 1), 5) = ac Then
            If y(i, 1) = 0 And y(j, 1) = 0 Then
                y(i, 1) = ac
                y(j, 1) = ac
                GoTo es
            End If
        End If
        For k = j + 1 To UBound(x)
            If Round(x(i, 1) + x(j, 1) + x(k, 1), 5) = ac Then
                If y(i, 1) = 0 And y(j, 1) = 0 And y(k, 1) = 0 Then
                    y(i, 1) = ac
                    y(j, 1) = ac
                    y(k, 1) = ac
                    GoTo es
                End If
            End If
            For l = k + 1 To UBound(x)
                If Round(x(i, 1) + x(j, 1) + x(k, 1) + x(l, 1), 5) = ac Then
                    If y(i, 1) = 0 And y(j, 1) = 0 And y(k, 1) = 0 And y(l, 1) = 0 Then
                        y(i, 1) = ac
                        y(j, 1) = ac
                        y(k, 1) = ac
                        y(l, 1) = ac
                        GoTo es
                    End If
                End If
                For m = l + 1 To UBound(x)
                    If Round(x(i, 1) + x(j, 1) + x(k, 1) + x(l, 1) + x(m, 1), 5) = ac Then
                        If y(i, 1) = 0 And y(j, 1) = 0 And y(k, 1) = 0 And y(l, 1) = 0 And y(m, 1) = 0 Then
                            y(i, 1) = ac
                            y(j, 1) = ac
                            y(k, 1) = ac
                            y(l, 1) = ac
                            y(m, 1) = ac
                            GoTo es
                        End If
                    End If
                    For n = m + 1 To UBound(x)
                        If Round(x(i, 1) + x(j, 1) + x(k, 1) + x(l, 1) + x(m, 1) + x(n, 1), 5) = ac Then
                            If y(i, 1) = 0 And y(j, 1) = 0 And y(k, 1) = 0 And y(l, 1) = 0 And y(m, 1) = 0 And y(n, 1) = 0 Then
                                y(i, 1) = ac
                                y(j, 1) = ac
                                y(k, 1) = ac
                                y(l, 1) = ac
                                y(m, 1) = ac
                                y(n, 1) = ac
                                GoTo es
                            End If
                        End If
                    Next n
                Next m
            Next l
        Next k
    Next j
Next i
es: Range("C3").Resize(UBound(x)).Value = y
End Sub