my $rs = CreateObject OLE "ADODB.Recordset" or die "can not create recordset";
$rs->open($sqlstatement, $dbh, 3, 3);