my $conn = Win32::OLE->new('ADODB.Connection'); 
my $rs = Win32::OLE->new('ADODB.Recordset');

$conn->{'ConnectionString'} = 'provider=msidxs';
$conn->Open;

$rs->Open($queryString, $conn); #define $queryString beforehand