ACCESS VBAでHTTP送信したい

前提

ACCESSの　テーブル　の　フィールド1とフィールド2　の全レコード値をHTTP送信したいと考えております。
他の方のサンプルを見て考えてみたのですが、JSONオブジェクトとして送信するにはどの様にすればよいのかご教示いただければと思います。

Public Function test()

Dim db As dao.Database
Dim rs As dao.Recordset

Dim url
url = "https://webapi/api"

Dim JsonObject As Object
Set db = CurrentDb()
Set rs = db.OpenRecordset("テーブル", dbOpenDynaset)

Set JsonObject = New Dictionary
Do Until rs.EOF
JsonObject.Add "product", "～～"
JsonObject.Add "contract", "～～"
rs.MoveNext
Loop

Dim apikey As String
Dim apitoken As String
apikey = "*"
apitoken = "*****"

Dim objhttp As Object
Set objhttp = CreateObject("MSXML2.XMLHTTP")
With objhttp
.Open "POST", url, False
.setRequestHeader "Content-Type", "application/json; charset=UTF-8"
'.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Authorization", "Bearer " & apitoken
.setRequestHeader "x-api-key", apikey
.send JsonConverter.ConvertToJson(JsonObject)
Debug.Print
End With

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

End Function