возникают проблемы с подключением к quickbooks онлайн через IPP и .net devkit

Я пытаюсь подключиться к QB онлайн, и у меня возникают проблемы. Я создал демо-счет для QBO, добавил в него свое тестовое приложение и предоставил доступ для своего приложения. У меня есть потребительский ключ и секретные токены. Я установил .net devkit и настроил свой тестовый проект.

Я использую пример кода отсюда...

https://ipp.developer.intuit.com/0010_Intuit_Partner_Platform/0200_DevKits_for_Intuit_Partner_Platform/0100_IPP_.NET_DevKit/0299_Synchronous_Calls/0001_Data_Service_APIs

все работает, пока я не вызову метод add для создания клиента. то же самое касается всего остального, что я пытаюсь сделать, например добавления данных.

Это ошибка, которую я получаю...

"message=Исключение при аутентификации OAuth; errorCode=003200; statusCode=401; source=OAuthStrategy; oauth_problem=token_rejected; причина=net.oauth.OAuthProblemException: token_rejected"

Он говорит, что токен отклонен, поэтому я не понимаю, что мне не хватает. Это токены, данные мне в разделе онлайн-приложений.

вот мой код..

        Dim AccessToken As String = [redacted]
        Dim AccessTokenSecret As String = [redacted]

        Dim ConsumerKey As String = [redacted]
        Dim ConsumerSecret As String = [redacted]

        Dim OAuthValidator As OAuthRequestValidator = New OAuthRequestValidator(AccessToken, AccessTokenSecret, ConsumerKey, ConsumerSecret)
        Dim Context As ServiceContext = New ServiceContext(OAuthValidator, RealmID, IntuitServicesType.QBD)

        Dim dataServices As DataServices = New DataServices(Context)

        Dim qbdCustomer As Customer = New Customer()
        With qbdCustomer
            qbdCustomer.Name = "My New Customer"
            qbdCustomer.GivenName = "New Customer"
            qbdCustomer.FamilyName = "New Customer"
        End With
        Dim customerAdded As Customer = dataServices.Add(qbdCustomer)