ACCESS requete UPDATE TABLE error

Bonjour,
J'ai cette code pour mise à jour table T_TKM , il s'execute jusqu'à la fin pas d'erreur mais il ne fait aucun mise à jour sur la table. En plus il met quelque mise à jour à des enregistrements.

Public Shared Function UpdateTkmEts(ByVal num As Double, ByVal cons As Double, ByVal emission As Double, ByVal tkm As Double) As Integer
Dim Cnx As OleDbConnection
Dim Cmd As OleDbCommand
Dim CmdText As String
Dim Updated As Integer

Cnx = New OleDbConnection(connectionstring)
CmdText = "UPDATE T_TKM SET CONS=@cons,TKM=@tkm WHERE NUM=@num"
Cmd = New OleDbCommand(CmdText)
Cmd.Parameters.Add(New OleDbParameter("@num", num))
Cmd.Parameters.Add(New OleDbParameter("@cons", cons))
Cmd.Parameters.Add(New OleDbParameter("@tkm", tkm))
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnx
Try
Cnx.Open()
Updated = Cmd.ExecuteNonQuery()
Cnx.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error ")
End Try
Return Updated
End Function

Merci de votre aide.