Private Sub fill_Textframe_from_db_Click()
 
    'fester Pfad für den Ordner der DB-Datei
    Dim Str_CurrentPath As String
    Str_CurrentPath = "C:\Dokumente und Einstellungen\Timo\Desktop\MCB-InDesign"
 
    'öffnen der Datenbank "CatalogExample.mdb". Die Microsoft ActiveX Data 
    ' Objects 2.x Bibliothek muss diesem Projekt zugewiesen bzw. auf das 
    ' Projekt verweisen.
    Dim str_connection As String
    str_connection = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
      Str_CurrentPath & "\CatalogExample.mdb"
    Dim Cnxn As Object
    Set Cnxn = New ADODB.Connection
    Cnxn.Open str_connection
 
    'Anzahl der Datensätze ermitteln und in nCount speichern
    Set DB = DBEngine.OpenDatabase(Str_CurrentPath & "\CatalogExample.mdb")
    nCount = DB.TableDefs("Munster").RecordCount
 
    'auslesen des ersten Datensatzes aus der DB
    Dim str_SQL As String
    str_SQL = "SELECT * from sqlMunster"
    ' Anzahl der kompletten Datensätze müssen ausgelesen werde z.B. in 
    ' Count-Variable und diese runterzählen
    ' Resultset mit VB, nachforschen
    ' Die ganzen Daten müssen in ein Array eingelesen werden
    Dim RS_Content As Object
    Set RS_Content = Cnxn.Execute(str_SQL)
    Dim Text_Content As String
    Text_Content = RS_Content("Name")
 
    'öffnen der ersten Seite
    'Set MyPage = myDocument.Pages.Item(1)
 
    'Inhalt des ersten Textframe ändern
    Set myframe = myInDesign.ActiveDocument.TextFrames.Item(1)
    myframe.Contents = Text_Content