Sub FFDemo()
    Dim oFF As Object
    Dim rs As Recordset
    Dim FeldNamen() As String
    
    
    FeldNamen() = Split("Name IDX_Firma Telefon")
    
    Set oFF = GetObject("", "FlowFact.Application")

    If oFF.isloggedin Then
        sql = ""
        If oFF.Panes("F_AD").List.maxrows > 0 Then
            With oFF.Panes("F_AD").List
                .col = 1
                For lngrow = 1 To .maxrows
                    .Row = lngrow
                    sql = sql & "'" & .Text & "',"
                Next
                sql = Left$(sql, Len(sql) - 1)

                sql = "Select * From AD Where DSN In ( " & sql & ")"
                Set rs = oFF.Getrecordset(sql)

                While Not rs.EOF
                    Set MyRange = ActiveDocument.Range(0, 0)
                    Set newDoc = Documents.Add
                    Set myTable = newDoc.Tables.Add(Selection.Range, rs.RecordCount, 3)
                    With myTable
                        For lngrow = 1 To rs.RecordCount
                            For lngcol = 1 To 3
                                strinhalt = rs(FeldNamen(lngcol - 1)) & ""
                                .Cell(lngrow, lngcol).Range.InsertAfter strinhalt
                            Next
                            rs.MoveNext
                            Application.StatusBar = lngrow
                        Next
                        .Columns.AutoFit
                    End With
                Wend
            End With
        End If
    End If
    MsgBox "Fertig !"
End Sub