Run-time Error '-2147217900 (80040e14)':

I amd getting this error when trying to add the new Product ID
Run-time erroy '-2147217900 (80040e14)':
Invalid SQL statement; expected 'DELETE', 'INSERT', 'Procedure', 'SELECT', or UPDATE'.
it then asks me to end or debug. When I choose Degub This line is highlighted
rs.Open s, db, adOpenDynamic, adLockOptimistic

Here is the VB for the Form, Can someone tell me what i did wrong. Help Please.

Option Compare Database
Private Sub cmdGetInvoiceNum_Click()
Dim s As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set db = CurrentProject.Connection
'Get AutoNumber data from table
s = "SELECT * FROM AutoNumberVP WHERE AutoNumberVP.Key = 1;"
Set rs = New ADODB.Recordset
rs.Open s, db, adOpenStatic, adLockOptimistic

Me.txtPrefix = rs.Fields("Prefix")
Me.txtOrgIncrement = rs.Fields("AutoNumber")

Set rs = Nothing


Me.txtInvoiceNumber = Me.txtPrefix & Me.txtOrgIncrement
'Increment AutoNumber Data that is text characters
Me.txtNewIncrement = IncrAlphaField(Me.txtOrgIncrement)

''''Increment AutoNumber Data that a number value
''' Me.txtNewIncrement = Val(Me.txtOrgIncrement) + 1


'Write Back next AutoNumber
s = "SELECT * FROM AutoNumberVP WHERE AutoNumberVP.Key = 1;"
Set rs = New ADODB.Recordset
rs.Open s, db, adOpenDynamic, adLockOptimistic

rs.Fields("AutoNumber") = Me.txtNewIncrement
rs.Update
Set rs = Nothing
Set db = Nothing

'MsgBox "Done"



End Sub
Private Sub Command10_Click()

Dim s As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set db = CurrentProject.Connection

'Saving the record
s = "Video Promos"

Set rs = New ADODB.Recordset
rs.Open s, db, adOpenDynamic, adLockOptimistic
'add to the table
With rs
.AddNew

.Fields("ProductID") = Me.txtInvoiceNumber

.Update
End With
Set rs = Nothing
Set db = Nothing
MsgBox "Added"
Me.txtInvoiceNumber = ""
Me.txtNewIncrement = ""
Me.txtOrgIncrement = ""
Me.txtPrefix = ""

End Sub