my $dbh = DBI->connect( "dbi:ODBC:AV_Lenovo", "", "",{RaiseError => 1, PrintError => 1, AutoCommit => 0} ) or
die "Unable to connect: " . $DBI::errstr . "\n";