Microsoft Access - Betting System that requires fixing. (Loop on all Rows Programming)

The main component of the Access betting system is complete. The design, input and the reports are complete. The problem I have are at times, the computer seems to have a mind of its own as the results are sometimes incorrect. For example, in a very simple way of explaining it, if I click on an activation button to provide the report, and then do it again without touching the input, I would sometimes get a different outcome. For example, if the input for line 1 is 100 and line 2 is 200, the report shows total 300. If I redo the report again right away, sometimes the report would be 400. The Primary Report is the actual sequence of wins / losses in a row. The Secondary Report is derived from the Primary Report based on the last outcome of match. I would like a guru Microsoft Access Programmer to look at the programming component, fix the 5 Reports so the outcome is always 100% correct, not 95% correct. (Need to fix the errors from the Primary Report, Secondary Report, Both Team Report, Both Team Secondary Report and Report 2). They are all looped with other filters Home Team, Ground, Round. A taste of the programming. Function Calcul_WinLossInRow(VAR_TABLE, VAR_HOME_AWAY) Dim rst As [login to view URL] Set rst = New [login to view URL] [login to view URL] VAR_TABLE & " order by date ASC;", [login to view URL], adOpenStatic, adLockPessimistic If Not [login to view URL] Then '1st row VAR_NB_IN_ROW = 0 'VAR_TEAM_AWAY_PREV = rst("Away_team") VAR_AWAY_TEAM_WINLOSS_PREV = rst("AWAY_Team_WinLoss") rst("AWAY_Team_WinLoss_InRow") = FirstRow(rst("AWAY_Team_WinLoss"), VAR_HOME_AWAY) rst("AWAY_Team_nb_InRow") = 1 [login to view URL] Else 'MsgBox ("no data found with selected odds") [login to view URL] Set rst = Nothing Exit Function End If 'Loop on ALL rows While Not rst.EOF. . . . . So if you don't understand this, please don't reply. If you are a guru Access Programmer who is interested, please provide your email address details to my email a saying that you are interested of fixing it so that l can forward to you the Access program in due time so I can explain it in detail to you so that you can understand the betting methodology. To be fair, I will issue the emails to all interested programmers at the same time. The first one to send back to me with the modified Access program into my inbox that does exactly what I want with no issues will be paid $50 AUD. My betting system is based around with filters Home Teams, Away Teams, Both Teams, Home Odds, Away Odds, Date, Ground, Win or Loss in a row, outcome. It is based on sequential date order. (I would prefer a new column added to the fixture called sequence "Seq" as in numerical sequence and have the loop around the numerical sequence instead of "Date" sequence order). I will forward an email to you as a reminder of when I will be releasing the Access File. This way everyone will have the same starting time. The first one to forward back to me in my inbox the correct updated version will get $50 AUD. And maybe that winner will have future works with me for future add on to the program. Good Luck.