数据库连接比对问题，在线等。。急

因为刚学delphi，要做个登陆界面，登陆的用户名和密码要联系sql  server2000读取  
但是现在写的程序无法和数据库比对  
请大家帮我看看原因吧，谢谢。  
       procedure  TForm1.BitBtn1Click(Sender:  TObject);  
begin  
       if  (not(Edit2.Text='')and  not(Edit3.Text=''))then  
       begin  
       ADODataSet1.Active:=false;  
       ADODataSet1.CommandText:=  'select  *  from  xtuser  where  ID  =  '''+edit2.Text+'''and  Password='''+edit3.Text+'''';  
 
       ADODataSet1.Active:=true;  
 
           if  not  (ADODataSet1.IsEmpty)  then  
               begin  
                               showmessage('此用户不存在！请检查输入是否错误！');  
                               edit2.SetFocus;  
                 end  
               else  
                     begin  
                                         form2.show;    //self.ModalResult:=mrCancel;  
                                         ADODataSet1.Close;  
                     end;  
         end  
         else  
               begin  
                 showmessage('用户名，密码不能为空！请重新输入');  
 
               
               //ADODataSet1.Free;  
 
               end