[lmikle]

Дык найди нужную запись в таблице сначала. Например, так:

Код:

if Edit1.Text<>'admin' then
   begin
 DataModule1.ADOTable1.First;
 While Not DataModule1.ADOTable1.Eof Do
   begin
     If Edit1.Text = DataModule1.ADOTable1.FieldByName('login').AsString Then
       begin
         Form3.Label1.Caption:=DataModule1.ADOTable1.FieldByName('np').AsString;
         Break;
       end;
     DataModule1.ADOTable1.Next;
   end;