sub run_query {

   my $self = shift;
   my $name = shift;
   my $query = shift;   
   
   my $sth = $self->{'_conn'}->prepare($query) || print $DBI::errstr;   
   $sth->execute(@_) || print $DBI::errstr;

   return $sth;

}