🚀 go-pugleaf

OK, first, open Access and create a new module. In the VBA view, set two references: choose Tools\References and: 
1. Uncheck the ADO reference 
2. Scroll down and check Adobe InDesign Type Library 
3. Scroll down and check Microsoft DAO Object Library (whatever your latest version is, mine is 3.6 and I think that's the last one) 

Make a simple table "MyTable" with fields "MyField1" and "MyField2" and put in some dummy text. 

Then paste the following in the module: 
Public Function Output() 
    Dim db As DAO.Database 
    Dim rs As DAO.Recordset 
    Set db = CurrentDb 
    Set rs = db.OpenRecordset("tblMyTable", dbOpenDynaset) 
    Rem Make Document-level objects 
    Dim myInDesign As InDesign.Application 
    Set myInDesign = CreateObject("InDesign.Application.2.0") 
    Set myDocument = myInDesign.Documents.Add 
    Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
    Rem Get the page width, page height, and margins 
    myPageHeight = myDocument.DocumentPreferences.PageHeight 
    myPageWidth = myDocument.DocumentPreferences.PageWidth 
    myX1 = myDocument.Pages.Item(1).MarginPreferences.MarginLeft 
    myY1 = myDocument.Pages.Item(1).MarginPreferences.MarginTop 
    myY2 = myPageHeight - myDocument.Pages.Item(1).MarginPreferences.MarginBottom 
    myX2 = myPageWidth - myDocument.Pages.Item(1).MarginPreferences.MarginRight 
    Rem Size the text frame to fit the margins 
    myTextFrame.GeometricBounds = Array(myY1, myX1, myY2, myX2) 
    Rem note that you can check overflow conditions 
    Rem and add more pages/textframes as you go 
    Do While Not rs.EOF 
        sBuf1 = rs!MyField1 
        sBuf2 = rs!MyField2 
        myTextFrame.InsertionPoints.Item(-1).TextContents = sBuf1 _ 
            & vbTab & sBuf2 & vbCr 
            Rem vbcrlf = carriage return/linefeed 
            Rem vbcr = carriage return (new para/line) 
            Rem vblf = linefeed (same para new line) 
        rs.MoveNext 
    Loop 
    rs.Close 
    Set rs = Nothing 
End Function