Too few parameters. Expected 1. Error

[Techno]

Through a login form, I am trying to update a comments table.
A button should update the comments table by picking the values typed in the text box 25 by the user and append into the comments table.

SQL = "INSERT INTO tblComments ( [DateOfEntry], [Names], [Comments] ) VALUES ( Now(), '" & Environ("USERNAME") & "', " & Me!Text25.Value & " )"


CurrentDb.Execute SQL

This code on the button press is giving Run time error 3601, Too few parameters. Expected 1.

This code was originally working on different column names and different data types, I have changed it to my needs.

Any help greatly appreciated.

[Techno]

It worked by changing as below...
SQL = "INSERT INTO tblComments ( [DateOfEntry], [Names], [Comments] ) VALUES ( Now(), '" & Environ("USERNAME") & "', '" & Me!Text25.Value & "' )"

Thank you.

[moke123]

You could also use

SQL = "INSERT INTO tblComments ( [DateOfEntry], [Names], [Comments] ) VALUES (#" & Now() & "#,""" & Environ("USERNAME") & """,""" & Me!Text25.Value & """ )"

[Techno]

Thank you...