delphi mysql 未发现数据源名称并且未指定默认驱动程序_未发现数据源名称并且未指定默认驱动程序的问题(40分)...

我想用ADOConnection连接SQL数据库，连接字符串的相关参数保存在配置文件setup.ini文件中。当点击运行时，出现下面提示：
'[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序'
请问一下是怎么回事？程序中调用其他类的方法，代码如下：
unit login;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Inifiles, Datamodule, usercon_unit, StdCtrls, mainfrm;
type
 Tloginfrm = class(TForm)
   userid: TLabel;
   user_id: TEdit;
   userpwd: TLabel;
   user_pwd: TEdit;
   login_btn: TButton;
   quit_btn: TButton;
   user_name: TEdit;
   username: TLabel;
   procedure quit_btnClick(Sender: TObject);
   procedure login_btnClick(Sender: TObject);
 private
   usercon:Tusertable;
 public
   { Public declarations }
 end;
var
 loginfrm: Tloginfrm;
implementation
{$R *.dfm}
procedure Tloginfrm.quit_btnClick(Sender: TObject);
begin
 Application.Destroy;
end;
procedure Tloginfrm.login_btnClick(Sender: TObject);
var
 server,base,userid,pass:String;
 setupfile:Tinifile;
begin
 usercon:=Tusertable.create;
 setupfile:=Tinifile.create(extractfiledir(application.ExeName)+'/setup.ini');
 server:=setupfile.Readstring('system','servername','');
 base:=setupfile.Readstring('system','database','');
 userid:=setupfile.Readstring('system','USER_NAME','');
 pass:=setupfile.Readstring('system','USER_PWD','');
 try
 Datamod.adoconn.Close;
 Datamod.adoconn.ConnectionString:='Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist Security Info=true;'
         +'User ID='+userid+';'+'Password='+pass+';'
         +'Initial Catalog='+base+';'
         +'Data Source='+server;
 Datamod.adoconn.Open;
 if Datamod.adoconn.Connected then
    begin
      if usercon.CheckUser('user_id.edit')=false then
         showmessage('用户名不存在，请确认后重新输入')
      else
         if usercon.CheckPwd('user_id.edit','user_pwd.edit')=false then
            showmessage('密码不正确，请确认后重新输入')
         else
             begin
              loginfrm.hide;
              main.show;
             end;
     end;
 except
   application.MessageBox('数据库连接失败，请确认无误后重试！','提示：')
 end;
 end;
end.