delphi动态配置odbc

我用下面的代码动态配置odbc数据源连接access数据库，
编译可以通过，
SQLConfigDataSource(
     0,
     ODBC_ADD_SYS_DSN,
     'Microsoft Access Driver (*.mdb)',
     'DSN=MyAccessDB;DBQ=C:\MyDB\MyDB.MDB;DefaultDir=C:\MyDB;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;Description=我的数据库'
  );
end;
这段代码我要问的是如何动态指定数据库文件路径，上面的代码是规定在c盘的某个文件夹下的，我要动态的，改怎么写，
有谁知道的请给我完整的代码，一定要完整的代码，