$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connection to DataBase: $!" unless $dbh;

##</code><code>##

$rs = $dbh->Execute( $sqlstatement ) or die print ( "Can't adminmail database problemdsds Perl says $!, DBI says ",$dbh::errstr,"");