my $dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connection to DataBase: $!" unless $dbh;
$dbh->Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=db/1.mdb");

my $rs = CreateObject OLE "ADODB.Recordset" or die "can not create recordset"; 
my $sql = "INSERT INTO classes (subject,classnumber,description) VALUES ('$classSubject','$classNumber','$classDescription')";

$rs = $dbh->Execute( $sql ) or die print ( "Can't execute SQL statement. Perl says $!, DBI says ",$dbh::errstr,"\n");

$dbh->Close();