use Win32::OLE;
$conn = Win32::OLE->new("ADODB.Connection");
$conn->Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\auftrag.mdb;Mode=Share Deny None");
$RS = $conn->Execute("SELECT memo FROM table");
if (!$RS) {
    $Errors = $conn->Errors();
    die "Errors:\n", map { "$_->{Description}\n" } keys %$Errors;
}

while ( !$RS->EOF ) {
    my $memo = $RS->Fields('memo')->Value;
    print "$memo\n";
    $RS->MoveNext();
}
$RS->Close();
$conn->Close();