If dbFile <> "" Then
 
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set rs = Db.OpenRecordset("Produkt") 'Das ist die Tabelle in der Datenbank
 
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Ergebnisform.List1.AddItem rs(tabelle) 'Variable für Spalte 
            ' welche ausgegeben werden soll
       rs.MoveNext
        Wend
    End If
    Ergebnisform.Show
End If