codice:
sub login (rec as recordset,optional username as string = "%",optional password as string = "%") 
   
   rec.open
   rec.filter = "username = '" & username "' and password = '" & password & "'"