my $DSN = 'driver=Microsoft Access Driver (*.mdb);dbq=\\\\ntsimoddev\\module\\AccessDB\\GSIView.mdb';
	my $dbh = DBI->connect("dbi:ODBC:$DSN", '','') or die "$DBI::errstr";
my $sth2 = $dbh->do("SELECT id FROM main WHERE machine = '$machinename' and weekNumber = '$wwnow'");
my $refarray = $sth2->fetchrow_array();