I am getting an error "Too Few Parameters expected 1"
on all 3 of my .openrecordset 's. What am I missing? thx here's the code

Private Sub CalcSplit_Click()
Screen.MousePointer = 11

Dim dbsSBOA8000 As DAO.Database

Dim rstTotForfeit As DAO.Recordset
Set dbsSBOA8000 = CurrentDb
Set rstTotForfeit = dbsSBOA8000.OpenRecordset("GrandSumVBAForfeit")


Dim rstCalcContrib As DAO.Recordset
Set rstCalcContrib = dbsSBOA8000.OpenRecordset("TransCalcContrib-Final")

Dim rsttotalpoints As DAO.Recordset
Set rsttotalpoints = dbsSBOA8000.OpenRecordset("TotalSharesbyYear-query")

Dim TotContrib As Double
Dim tmpForefeitShare As Double
Dim CalcForefeit As Currency
Dim CalcContrib As Currency


Dim fldTotMult As DAO.Field
Set fldTotMult = rsttotalpoints![Multiplier]

Dim fldTotLost As DAO.Field
Set fldTotLost = rstTotForfeit![Forefeitures]


Dim fldMemberID As DAO.Field
Set fldMemberID = rstCalcContrib![Member Id]

Dim fldContrib As DAO.Field
Set fldContrib = rstCalcContrib![Contributions]

Dim fldForefeit As DAO.Field
Set fldForefeit = rstCalcContrib![Forefeitures]

Dim fldMultiplier As DAO.Field
Set fldMultiplier = rstCalcContrib![Multiplier]


rsttotalpoints.MoveFirst
rstTotForfeit.MoveFirst
rstCalcContrib.MoveFirst

tmpForefeitShare = (fldTotLost * -1) / fldTotMult
TotContrib = Forms![End of Year Pension Worksheet]![Contributions-Amt] / fldTotMult

Do Until rstCalcContrib.EOF

     CalcForefeit = fldMultiplier * tmpForefeitShare
     CalcContrib = fldMultiplier * TotContrib

     rsttrans.Edit
     rsttrans![Contributions] = CalcContrib
     rsttrans![Forefeitures] = CalcForefeit
     rsttrans.Update
     rstCalcContrib.MoveNext
Loop

Screen.MousePointer = 0
rstCalcContrib.Close
rsttotalpoints.Close
rstTotForfeit.Close
Set rstCalcContrib = Nothing
Set rsttotalpoints = Nothing
Set rstTotForfeit = Nothing
Set db = Nothing
MsgBox ("Finished Processing")
End Sub