I keep getting an error that says "Too few parameters. Expected 1." on the line I colored RED

Any ideas where I went wrong. I did reference the Microsoft Outlook 11.0 Library

VB Code:
  1. Private Sub cmdFORM25_Click()
  2.  
  3. Dim sSQL As String
  4. Dim stNum As String
  5. stNum = "25"
  6. sSQL = "SELECT * FROM SATETRAINING WHERE Comments = stNum"
  7. [COLOR=Red]Set rs = CurrentDb.OpenRecordset(sSQL)[/COLOR]
  8. Do While Not rs.EOF
  9. Dim stName As String
  10. Dim stSubject As String
  11. Dim stText As String
  12. Dim stEmail As String
  13. stEmail = "[email protected]"
  14. stName = rs!FullName
  15. stSubject = "Form 25 needed for" & stName
  16. stText = "You do not have a Form 25 on File." & Chr$(13) & _
  17. "Please drop off a copy at the Finance Customer Service Desk." & Chr$(13) & _
  18. "If you do not turn in your Form 25 Comm may take away your network privileges."
  19. DoCmd.SendObject , , acFormatTXT, stEmail, , stSubject, stText, -1
  20. rs.MoveNext
  21. Loop
  22.  
  23.  
  24. End Sub