$dbh = DBI->connect("dbi:ODBC:CQmaster",$user,$password) || die "Can't open! $!";