[ZaerAllail]

السلام عليكم
اخواني ياليت أحد يتكرم علي ويفيدني بالتعديل الصحيح على هذا الكود في تحديث البيانات 
حيث كان سابقا يعمل وبشكل مفاجئي أو خطأ أصبح دوما يأتيني منه رسالة خطأ في بناء الجملة 

كود :

        con.Open()
        Dim UPDATE As String =
        "UPDATE [MyPass] " &
        "SET    [Pname]    = @Pname, " &
        "       [UserName] = @UserName, " &
        "       [Password] = @Password, " &
        "       [SecQ]     = @SecQ, " &
        "       [SecA]     = @SecA, " &
        "       [Reback]   = @Reback, " &
        "       [MorData]  = @MorData, " &
        "WHERE  [Pnom]     = @Pnom "
        Dim cmd As New OleDbCommand(UPDATE, con)
        cmd.Parameters.AddWithValue("@Pname", TRname.Text)
        cmd.Parameters.AddWithValue("@UserName", TUname.Text)
        cmd.Parameters.AddWithValue("@Password", Tpass.Text)
        cmd.Parameters.AddWithValue("@SecQ", Tsq.Text)
        cmd.Parameters.AddWithValue("@SecA", TSA.Text)
        cmd.Parameters.AddWithValue("@Reback", TRBack.Text)
        cmd.Parameters.AddWithValue("@MorData", Tnote.Text)
        cmd.Parameters.AddWithValue("@Pnom", Val(LCountNom.Text))
        cmd.ExecuteNonQuery()
        con.Close()   
cmd.ExecuteNonQuery()

حقيقي صدع راسي منه وياليت ألاقي أحد يفيدني لو أمكن