Visual basic 15

Buongiorno, e' la prima volta che Vi scrivo e lo faccio perche' non riesco a trovare l'errore su Update Support, INSERT INTO funziona benissimo.

Errore sintassi (operatore mancante) nella Query ........

Sistema Operativo : Windows 10

Visual Basic v.2015 Ultimate.

Ecco la routine incriminata:

Public Shared Function SupportUpdate(ByVal prmIDRecord As Long) As String

'
If prmIDRecord > 0 Then
sSQL = " UPDATE Support "
sSQL = sSQL & " SET ID = @ID"
sSQL = sSQL & " COfS = @COfS"
sSQL = sSQL & " Abbreviation = @Abbreviation"
sSQL = sSQL & " Comment = @Comment"
sSQL = sSQL & " IDGrouping = @IDGrouping"
sSQL = sSQL & " ck1 = @ck1"
sSQL = sSQL & " TaxForm = @TaxForm"
sSQL = sSQL & " Painting = @Painting"
sSQL = sSQL & " TaxRate = @TaxRate"
sSQL = sSQL & " WHERE AutoID = "& prmIDRecord
Else
sSQL = " INSERT INTO Support "
sSQL = sSQL & " ( ID, COfS, Abbreviation, Comment, IDGrouping, ck1, TaxForm, Painting, TaxRate) "
sSQL = sSQL & " VALUES ("
sSQL = sSQL & " @ID, @COfS, @Abbreviation, @Comment, @IDGrouping, @ck1, @TaxForm, @Painting, @TaxRate)"
End If
'
Return sSQL
'
End Function

 

Grazie.