print "Error: " . Win32::OLE->LastError  . "\n";
      print Dumper $bbData;
      $e  =   $bbdata->[0];
      print Dumper $e;
      
      print $SQLUpdate  .  $SQLUpdateWhere  . "\n";