Access 2003 Form error

[vonoventwin]

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

Private Sub cmdFORM25_Click()
 
Dim sSQL As String
Dim stNum As String
stNum = "25"
sSQL = "SELECT * FROM SATETRAINING WHERE Comments = stNum"
[COLOR=Red]Set rs = CurrentDb.OpenRecordset(sSQL)[/COLOR]
Do While Not rs.EOF
Dim stName As String
Dim stSubject As String
Dim stText As String
Dim stEmail As String
stEmail = "[email protected]"
stName = rs!FullName
stSubject = "Form 25 needed for" & stName
stText = "You do not have a Form 25 on File." & Chr$(13) & _
"Please drop off a copy at the Finance Customer Service Desk." & Chr$(13) & _
"If you do not turn in your Form 25 Comm may take away your network privileges."
DoCmd.SendObject , , acFormatTXT, stEmail, , stSubject, stText, -1
rs.MoveNext
Loop
 
 
End Sub

[si_the_geek]

try putting the value of your variable into the SQL, instead of the variable name

sSQL = "SELECT * FROM SATETRAINING WHERE Comments = " & stNum

[salvelinus]

if stNum is a string, you'd need to enclose it within single quotes. This assumes the Comments field is text.

sSQL = "SELECT * FROM SATETRAINING WHERE Comments = '" & stNum & "'"

Otherwise dim it as an integer. You may also want to pass the value in as a variable to the sub rather than hardcoding it, or get it some other way (InputBox, Form, etc).
Your error could also occur if you haven't declared rs somewhere else at at least module level.

[vonoventwin]

try putting the value of your variable into the SQL, instead of the variable name

sSQL = "SELECT * FROM SATETRAINING WHERE Comments = " & stNum

Now I get:

Data Type Mismatch in criteria expression

[vonoventwin]

You know what this value never changes, so can't I put

sSQL = "SELECT * FROM SATETRAINING WHERE Comments = 25 "

[si_the_geek]

"Data Type Mismatch" means that (like in VB) you haven't used the right data type for something, and as salvelinus thought your Comments field appears to be a string, so you must use quotes, ie:

sSQL = "SELECT * FROM SATETRAINING WHERE Comments = '" & stNum & "'"
'or:
sSQL = "SELECT * FROM SATETRAINING WHERE Comments = '25' "