I took what you did with the showing how many reports are there... and bastardized it slowly back to what my original idea was... and somehow it worked this time... here's how it's done.

#!/Perl/bin/perl

use Win32::OLE;

    my $path = "XXX";        

    my $access = Win32::OLE->new('Access.Application');
    
    $access->OpenCurrentDatabase($path);
    
        #Don't show the window    
        $access->{Visible} = 0;

        #Open the report in design mode
    $access->DoCmd->OpenReport("XXX",1);
    
        #Change the recordsource
    $access->Reports->Item(0)->{RecordSource} = "XXX";
    
        #Save the report
    $access->DoCmd->Save(3,XXX);
    
        #Quit
    $access->DoCmd->Quit(2);
[download]

Thanks to all who offered assistance with this quite sucky problem. Much appreciate guys and gals... thank you.

sorry about the comment indention... something was lost in the transalation(read:paste) from Textpad :P