Public Function export_in_json_format(QueryName As String)

    Dim fs As Object
    Dim jsonfile
    Dim rowcounter As String
    Dim reccnt As Long
    Dim linedata, segmentdata, datef, timef As String
    
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(QueryName)
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set jsonfile = fs.CreateTextFile(Application.CurrentProject.Path & "\date_.json", True)
    ' Export to JSON structure
    'ðàáîòàåì ñ ìàñèâîì äàííûõ
    With rst
        If Not (.BOF And .EOF) Then
            .MoveLast
            .MoveFirst
            
            reccnt = rst.RecordCount
            
            Do Until .EOF
            If linedata <> "" Then
                linedata = linedata & "}, {" & vbCrLf
            Else
                linedata = ""
            End If
    
            linedata = linedata & """category"": """ & rst(0) & """," & vbCrLf
            linedata = linedata & """segments"": [ {" & vbCrLf
            rowcounter = rst(0)
            
            While rst(0) = rowcounter 'And reccnt >= 1
                segmentdata = segmentdata & """start"": """ & rst(1) & """," & vbCrLf
                segmentdata = segmentdata & """end"": """ & rst(2) & """," & vbCrLf
                segmentdata = segmentdata & """task"": """ & rst(3) & """ " & vbCrLf
                segmentdata = segmentdata & "}, {" & vbCrLf
                'reccnt = reccnt - 1
                .MoveNext
            Wend
            
            linedata = linedata & Left(segmentdata, (Len(segmentdata) - 5)) & "]" & vbCrLf
            segmentdata = ""
            .MoveNext
            Loop
        End If
        .Close
    End With
        

    linedata = "[" & vbCrLf & linedata & vbCrLf & "]"
    jsonfile.WriteLine linedata
    jsonfile.Close
 
    Set fs = Nothing

   
End Function