instead of 4 tables that all appear to look like:

create table x {
  formeamil varchar(n),
  formpass  varchar(n)
}
# where x = surya rahul deepika everyone
[download]

how about:

create table y {
  formfield  varchar(n),
  formeamil varchar(n),
  formpass varchar(n)
}
[download]

then you can get rid of the if testing and just do

my $dbh;
$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connec
+tion to DataBase: $!" unless $dbh;  $dbh->Open("Driver={Microsoft Acc
+ess Driver (*.mdb)};DBQ=../_private/db1.mdb");
my $rs = CreateObject OLE "ADODB.Recordset" or die "can not create rec
+ordset"; 
my $sql = "INSERT INTO y (formfield,formemail,formpass) VALUES ($formf
+ield,$formemail,$formpass)";
$rs = $dbh->Execute( $sql );
[download]

As for why it's not currently working, you may want to do some error handling on the execute().

good luck!