my $dbh;
$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connection to DataBase: $!" unless $dbh;  $dbh->Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=../_private/db1.mdb");
my $rs = CreateObject OLE "ADODB.Recordset" or die "can not create recordset"; 
my $sql = "INSERT INTO y (formfield,formemail,formpass) VALUES ($formfield,$formemail,$formpass)";
$rs = $dbh->Execute( $sql );