1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

form2.ADOtable1.Active := false;
      form2.ADOtable1.tablename :=
        concat(home, '\R', listbox1.items[listbox1.itemindex][1], 'x.dbf');
      showmessage('Tabellenname: ' + form2.ADOTable1.TableName);
      form2.ADOTable1.Filter :=
        'Klasse = ' + Quotedstr(listbox1.items[listbox1.itemindex]);
      form2.ADOTable1.Filtered := true;
      showmessage('Tabelle ist gefiltert');
//  form2.ADOTable1.Active := true;
    showmessage('Tabelle ist aktiv');

form2.ADOTable1.Connection.close;

      form2.ADOConnection1.ConnectionString :=
       'Provider=MSDASQL.1;Persist Security Info=False;User ID=an;'+
       'Data Source=dBASE-Dateien;Extended Properties=dBaseIV;'+
       'Initial Catalog=C:\Dokumente und Einstellungen\Detlef\Eigene Dateien\TSS OD\Sport\BundesjugendspieleD';
    form2.ADOConnection1.Connected := true;

form2.ADOTable1.Connection.open;

    form2.ADOTable1.Connection := form2.ADOConnection1;

  form2.ADOTable1.Active := true;
    //form2.datasource1.dataset := form2.ADOtable1;   in OI gesetzt
    //form2.dbgrid1.datasource := form2.datasource1;      dto.
    showmessage('Klassenstufe ist gefiltert');