AlexG

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery1.ConnectionString := 'Provider=Microsoft' +
    '.Jet.OLEDB.4.0;Data Source=' + GetCurrentDir +
    '\Transfers.mdb;Mode=ReadWrite;Persist Security Info=False';

  with ADOQuery1 do
  begin
    DisableControls;
    try
      Close;
      SQL.Clear;
      SQL.Text := 'SELECT * FROM User ' +
        'WHERE UserID=:param1';
      Parameters.ParamByName('param1').DataType := ftVariant;
      Parameters.ParamByName('param1').Value := GetCurrentuserName;
      try
        Open;
        if RecordCount = 1 then
        begin
          UserID := FieldByName('UserId').AsString;
          FirstName := FieldByName('FirstName').AsString;
          LastName := FieldByName('LastName').AsString;
        end;
      finally
        Close;
      end;
    finally
      EnableControls;
    end;
  end;
end;