Something

Dim Scripts As Integer
Dim Rate As Integer
Dim Adminpay As Integer
Dim Current As Integer
Dim Temp As Integer



Private Sub Form_Load()
Adminpay = 95


Do Until Data1.Recordset.EOF
   
    Scripts = Data1.Recordset.Fields("Scripts Total").Value
    Rate = Data1.Recordset.Fields("Script Rate").Value
    If Data1.Recordset.Fields("Tax Deduction Flag").Value = True Then
        Current = (Scripts * Rate + Adminpay) - ((Scripts * Rate + Adminpay) / 100 * 22)
    Else
        Current = Scripts * Rate + Adminpay
    End If
    
    Current = Current + Temp
    Temp = Current
    
Data1.Recordset.MoveNext

Loop

End Sub