[سؤال] تعديل كود تحديث البيانات

كود :
        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()