ADO动态连接数据库的问题？

Question

各位能不能给些动态连接数据库的例子，急用！
要编译能通过的！

Answer 1

procedure TfrmMain.ConnectDB;
var
  ConnStr,DBPath:String;        //保存连接字符串和数据库路径
begin
  {ExtractFilePath函数从一个完整的文件名中分离出路径，以'\'结束，
   Application.ExeName得到程序执行文件本身的文件名，
   这里要求数据库文件（UserInfo.mdb）必须放在程序同一个目录，
   否则就连接不上了，呵呵！}  try
    DBPath:=ExtractFilePath(Application.ExeName)+'UserInfo.mdb';
    ConnStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
        DBPath+';Persist Security Info=False';
    ADOConnection1.Close; //要改变它的属性前要关闭连接！
    ADOConnection1.ConnectionString:=ConnStr;     //指定连接串
    ADOconnection1.LoginPrompt:=False;  //不显示默认的登录对话框
    ADOConnection1.Open   //打开连接
  except
    on E:Exception do
    begin
      ShowMessage('出错！'+e.Message);  //显示出错信息
      frmMain.Close;    //退出程序算了，数据库都连不上还有什么用！^_^
    end;
  end;
end;procedure TfrmMain.FormCreate(Sender: TObject);
begin
  ConnectDB;    //连接数据库
end;

Answer 2

adoconnection.active:=false;
adoconnection.connectstring:='Provider=SQLOLEDB.1;Password=jjjxj;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=SERVER'
adoconnection.active:=true;