$dsnado = "DBI:ADO:Provider=vfpoledb;DSN=FoxPro;";
$dbhfox = DBI->connect ($dsnado, '', '');
##

##

$q="SELECT order_bill_n, srok_date FROM orders WHERE ALLTRIM(UPPER(order_bill_n)) LIKE '%23-B%' order by order_bill_n desc ";


$sthfox=$dbhfox->prepare($q) or die "Can't prepare statement: $DBI::errstr";


$sthfox->execute() or die "Can't execute statement: $DBI::errstr";