use Win32::OLE::Const 'Microsoft Access';
use Win32;
 
my $access = Win32::OLE->new('Access.Application') or
 	die "Error: Unsuccessful in connecting with Access database.\n";


$access->OpenCurrentDatabase('C:\apasxolhsh\nikos1.mdb');
$access->{Visible}=1;

$access->Docmd->OpenForm('er0050-MYFORM');

$access->Forms('er0050-MYFORM')->Controls("code-ypallhloy")->{Value}=1400;
$access->Forms('er0050-MYFORM')->Controls("date-kinhshs")->{Value}="18/08/2008";

$access->Docmd->Quit(acSave);