Thanks much, use is what I missed, now I went further and encountered another problem, I use Recordset to get table values, but program is terminated at $rs->RecordCount.
my $rs = Win32::OLE->new('ADODB.Recordset');
$rs->Open("Select * from $SQLTABLE", $conn);
if ($rs->RecordCount > 0) {...}
Can you point out where might be wrong?
-- PC