procedure TForm1.FormShow(Sender: TObject);
begin
  DBCheck;
  dbName := dataDir+'\p2vvw.mdb';
  DataSource:= // Link zur DB setzen
    'Provider=Microsoft.Jet.OLEDB.4.0' +
    ';Data Source=' + dbName +
    ';Persist Security Info=False';
  ADOConnection1.ConnectionString := DataSource;
  ADOConnection1.LoginPrompt := False; // Kein Loginfenster
  ADOCommand1.Connection := ADOConnection1; // Connect zur DB hersellen

  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text :=
    'SELECT Mitgliedsnummer, Vorname, Name, Strasse, Land, PLZ, Ort, ' +
      'Tel_1, Fax_1, Tel_2, Fax_2, Handy, email, ' +
      'GebDat, ' +
      'Saldo, ' +
      'Eintritt, ' +
      'Spielernummer, Trikot, Spielerpos FROM ' +
      'ID, Mitglied, Kontakt, GebDatList, MG_Saldenliste, Mitgliedsstatus, ' +
      'Spielerdaten';
  ADOQuery1.Active:=true;

end;