$dbh = DBI->connect("dbi:ODBC:MYANGEB.DB", '','') or die "$DBI::errstr\n";
my @names = $dbh->tables; #veraltet