$q="SELECT order_bill_n, srok_date FROM orders WHERE ALLTRIM(UPPER(order_bill_n)) LIKE '%22134%'  order by order_bill_n desc ";
						
	$sthfox=$dbhfox->prepare($q, { ado_cursortype => 'adOpenForwardOnly' }) or die "Can't prepare statement: $DBI::errstr";
	$sthfox->execute() or die "Can't execute statement: $DBI::errstr";

##</code><code>##

OLE exception from "Microsoft OLE DB Provider for Visual FoxPro":\r
[error] \r
[error] Unable to create temporary work files.\r
[error] \r
Win32::OLE(0.1704) error 0x80004005: "Unspecified error"\r
in METHOD/PROPERTYGET "Open" at D:/usr/local/bin/perl/site/lib/DBD/ADO.pm line 1136\r
DBD::ADO::st execute failed: Can't Open Recordset for 'SELECT order_bill_n, srok_date FROM orders WHERE ALLTRIM(UPPER(order_bill_n)) LIKE '%22134%'  order by order_bill_n desc '\r