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
Scripts = Data1.Recordset.Fields("Scripts Total")
Rate = Data1.Recordset.Fields("Script Rate")

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

Loop

End Sub