The End Select is at the very bottom just before End Sub. Thanks for the tip on the # for the code. I never knew that.
Sub FillAnnuity(nProposalID As Long, nAnnuityYearsLife As Integer, cInitial As Currency, nRORGB As Double, _
nAnnuityID As Integer, nIntType As Integer)
Dim rst As Recordset...