急、急、急！！！！！！！！！！！！！

Question

AConnection  :=  CreateOleObject('ADODB.Connection');  
   AConnection.Open('dsn=manage');  
   ARecordSet  :=  CreateOleObject('ADODB.RecordSet');  
   ARecordSet.open(  'select  UserName  from  manage  where      password=''userpassword.text''',AConnection,,,);  
if  not(ARecordSet.Fieldbyname('UserName').AsString=name.Text)then！！！！！！！！！！//这里怎么会出现错误呢？  
       begin  
           ShowMessage('用户名或密码不正确，请确认后重新输入！');  
           name.Text:='';  
           userpassword.Text:='';  
           name.SetFocus;  
       end  
       else  
       begin  
           ShowMessage('登录成功！欢迎使用本系统！');  
           form1.Show;  
           login.Hide;  
       end;  
 
谁做过这样的东西啊？  
帮我找一下错误啊？谢谢了！

Answer 1

if  ARecordSet.Fieldbyname('UserName').AsString <> name.Text

Answer 2

ARecordSet.Fieldbyname('UserName').AsString=name.Text
改为ARecordSet.FieldValues['UserName']=name.Text 试一下

Answer 3

if  not(ARecordSet.Fieldbyname('UserName').Asinteger=strtoint(name.Text)) 
then

Answer 4

可不， 为什么不用delphi的ado呢？