Update dans SQL Server

J'ai une erreur de update avec SQL Server en VB6. Voici la synthaxe :

Set Base_Intra = OpenDatabase("", False, False, "ODBC;database=bgr;UID=xx;PWD=km;DSN=Intranet;")
'
SQL = "Insert into My_Base (Numéro,Matricule,Nom_Prenom) values (" & numero & ",'" & Matricule & "','" & Nom_Prenom & "')"
Base_Intra.Execute SQL ' s'exécute OK
'
SQL = "update My_Base set Code=" & CAD & " where Numéro=" & numero
Base_Intra.Execute SQL ' message d'erreur


Message d'erreur : "Erreur d'exécution 3073. L'opération doit utiliser une requête qui peut être mise à jour"

Si la base est Acccess, cala fonctionne.

Quel est le problème ?

Donnes nous la structure de ta base.

Structure de la base :
Numéro int 4
Matricule nvarchar 255
Nom_Prenom nvarchar 255
Code small int 2
;):)