my $dbh = DBI->connect('DBI:ODBC:db1', '', '') or die "Fehler beim Connect:",$DBI::errstr;