ACCESS VBAでHTTP送信したい

Question

前提

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

Comments

[otn]

JSONというのは、オブジェクトを文字列化した物ですが、
> JSONオブジェクトとして送信するには
というのはどういう意味でしょうか？

部分的にしか見ていませんが、
> .send JsonConverter.ConvertToJson(JsonObject)
で、オブジェクトをJSON化して送れているのでは？

[DeChambeau]

すみません、質問の仕方がまずかったです。
テーブルレコードの値を順次送る方法はどの様にしたら良いのでしょうか。

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

[otn]

わからない点をピンポイントで具体的に書きましょう。