Puedes empezar buscando info en 

https://learn.microsoft.com/es-es/office/dev/scripts/develop/use-json

y unos modulos para convertir vba a json y al contrario.

https://github.com/VBA-tools/VBA-JSON

Saludos

Carlos

Sub ExportarTablaAJSON()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim jsonString As String

    Dim rutaArchivo As String

    Dim archivo As Integer

    

    ' Abrir la base de datos actual

    Set db = CurrentDb()

    

    ' Ejecutar la consulta SQL para obtener los datos de la tabla Clientes

    Set rs = db.OpenRecordset("SELECT * FROM Clientes", dbOpenSnapshot)

    

    ' Construir la cadena JSON

    jsonString = "["

    

    Do While Not rs.EOF

        jsonString = jsonString & "{"

        jsonString = jsonString & """ID"":" & rs("ID") & ","

        jsonString = jsonString & """Nombre"":""" & rs("Nombre") & ""","

        jsonString = jsonString & """Edad"":" & rs("Edad") & ","

        jsonString = jsonString & """Ciudad"":""" & rs("Ciudad") & """"

        jsonString = jsonString & "},"

        

        rs.MoveNext

    Loop

    

    ' Eliminar la última coma y cerrar el array JSON

    jsonString = Left(jsonString, Len(jsonString) - 1) & "]"

    

    ' Especificar la ruta del archivo JSON

    rutaArchivo = "C:\ruta\Clientes.json"

    

    ' Crear el archivo y escribir el JSON

    archivo = FreeFile

    Open rutaArchivo For Output As archivo

    Print #archivo, jsonString

    Close archivo

    

    MsgBox "Archivo JSON generado en: " & rutaArchivo

    

    ' Limpiar

    rs.Close

    Set rs = Nothing

    Set db = Nothing

End Sub

Muchas gracias por su valiosa colaboracion, podemos cerrar el hilo por favor