添加不了数据库啊

代码如下：
procedure TForm9.Button1Click(Sender: TObject);
begin
adoquery1.close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select number from [teltable] where number='''+trim(edit1.Text)+'''');
      adoquery1.Open;
      //判断是否有空
      if(trim(edit1.Text)<>'')and(trim(edit2.Text)<>'') then
      begin
              //判断用户是否已经存在
              if(trim(edit1.Text)=adoquery1.FieldByName('number').AsString) then
               begin
                    showmessage('用户已经存在，无法添加！');
                    Edit1.Clear;edit2.Clear;edit1.SetFocus;
                end
                //插入数据库的表中
                else
                begin
                     try
                        adotable1.Open;
                        adotable1.Append;
                        adotable1.FieldByName('number').AsString:=trim(edit1.Text);
                        adotable1.FieldByName('password').AsString:=trim(edit1.Text);
                        adotable1.FieldByName('name').AsString:=trim(edit2.Text);
                        showmessage('添加成功！');
                         Edit1.Clear;
                         Edit2.Clear;
                         edit1.SetFocus;
                     except
                           showmessage('数据库链接出错！');
                     end;
                end;
      end
      else
      begin
           showmessage('学号和姓名不能为空！');
           Edit1.Clear;
           Edit2.Clear;
           edit1.SetFocus;
      end;
我感觉代码应该没太大问题，可以运行，运行时空的不允许添加，已有的不允许添加，符合标准的也弹出了message了，可是我打开我的telnumber表，并没有新添加的元组，各位帮忙啊！
end;