$SQLStr = "exec StoredProc_A 20110101"
$RS = ACC::DatabaseAccess->GetDataRS($dbconn, $SQLStr);

sub GetDataRS { 
	my($pkg, $Conn, $sql) = @_;
        $RS   = Win32::OLE->new("ADODB.Recordset");
	$RS->Open($sql, $Conn, 1, 1);
	return $RS;
}