小白楼主又来问关于数据库连接的问题了...

procedure TLog.LoginClick(Sender: TObject);
var
  user:TAccount;
  userID:integer;
begin
  if ( IDtext.Text='' ) then
    begin
      messagebox( Handle,'用户名不能为空','信息',MB_ICONASTERISK );
      exit;
    end;
  //连接数据库
  if ( DataM.ADOCon.Connected = False  ) then
    begin
      DataM.ADOCon.ConnectionString:=ConnectionConfig.getConnectionStr;
      DataM.ADOCon.Open;
    end;
  user:=TAccount.Create;
  user.account_id:=IDtext.Text;
  user.pwd:=pstext.Text;
  //匹配用户名密码
  userID:=ControlAccount.CheckAccount(user);  if userID<>-1 then
  begin
    messagebox( Handle,'已登陆系统','登陆成功',MB_ICONASTERISK );
  end
  else
  begin
    messagebox( Handle,'用户名或密码错误！','登陆失败',MB_ICONASTERISK );
  end;end;这是登陆界面的代码...class function ConnectionConfig.getConnectionStr;
begin
  result:='Provider=SQLOLEDB.1;Password=huxinran0926;Persist Security Info=True;User ID=sa;Initial Catalog=HOS;Data Source=MIA';
end;这是设置连接的代码...function CheckAccount(user:TAccount):integer;
var
  sql:string;
  Query:TADOQuery;
begin
  sql:='select id from Account where account_id ='+''''+user.account_id+
       ''''+' and pwd='+''''+user.account_id+'''';
  Query:=DAHelper.ExeSqlQuery(sql);
  if Query.Fields[0].IsNull  then
      result:=-1
  else
    result:=Query.Fields[0].Value;
  Query:=nil;
end;这是查询用户名和密码的代码...现在的问题是，在登陆的时候点击登陆之后就会在，红色标出的代码部分，弹出请问一下这是什么原因要怎么修改...
基本是按着人民邮电的Delphi+SQL Server数据库应用实例完全解析第二章的代码和操作来写的...