use OLE;



#************************************************************

#* Open and returns recordset object

#************************************************************

sub OpenQuery($) {

	my $connstr = "...Put Connection String Here...";	

	my $adors = CreateObject OLE 'ADODB.Recordset';

	$adors->Open($_[0],$connstr);

	return $adors; 

}



#************************************************************

#* Close recordset object

#************************************************************

sub CloseQuery($) {

	$_[0]->Close();

	undef($_[0]);

}





... Jossain koodissa kutsutaan näin ...



my $x = OpenQuery('select top 1 [color] from [cars]');



print 'Color is '.$x->Fields('color')->{Value};



CloseQuery($x);



...