$sql_net="UPDATE today_records
        SET current_prem= ?
        WHERE  account_num= ? AND type='OK'";
my $sth2 = $dbh_2->prepare($sql_net);


##</code><code>##

        $sth2->execute(CONVERT(money, '$ABC7'),'$ABC2') || die $sth2->errstr;