ADOCommand1.CommandText :='';
  ADOCommand1.CommandText :='insert into login (n,b) values ('+''''+'L'+''''+','+''''+'G'+'''';
  ADOCommand1.Execute;adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from login');
adoquery1.open;
label.caption :=adoquery1.fields[0].asstring;