Problème sql + vb

Bonjour,
j'ai une appli en vb6 qui gère une base de donnée access derrière

j'ai fait l'ajout, la lecture des enregistrements mais j'ai un problème dans la modification et la suppression d'un enregistrement

'****************Modifier un enregistrement *************************

Private Sub Modifier_Click()

Dim NomE, PrenomE As String
Dim strTable, strSQL As String
Dim IdE As Integer

IdE = Text1.Text ' la textbox ou j'affiche mon id d'étudiant, text2 pr afficher le nom et text3 pr le prénom
NomE = Text5.Text ' j ai rajouté une text5 pr écrire le nouvo nom ki remplcera l ancien
PrenomE = Text6.Text ' text6 pr réecrire le nouvo prénom ki remplera l ancien

strTable = "Etudiant" ' ma table avec (IdEtudiant, NomEtudiant,PrenomEtudiant)

strSQL = "UPDATE " & strTable & " SET " & " (NomEtudiant,PrenomEtudiant) VALUES ('" & NomE & "','" & PrenomE & "') WHERE ( IdEtudiant=IdE )"

db.Execute (strSQL)

End Sub

'*****************************supprimer un enregistrement******************

Private Sub Supprimer_Click()
Dim NomE, PrenomE As String
Dim IdE As Integer
Dim id2 As Integer
Dim strTable, strSQL As String


strTable = "Etudiant"

Text1.Text = id2

' Requête SQL de suppression
strSQL = "DELETE FROM " & strTable & " WHERE IdE=" & id2 & " "
' Exécute la requête de suppression des données dans la table
db.Execute (strSQL)

End Sub

merci