請教了,如何用AdoConnection動態連接Access數據庫?(55分)

請教大俠,
如何用AdoConnection動態連接Access數據庫?本人較水,所以最好有代碼哦!
另外請問那里可以查到Access數據庫的資料呢?
55,我就這么多分了,別嫌少,要不以后補給你!

procedure TMainForm.FormCreate(Sender: TObject);
begin
GetDir(0,Programer);//programer为全局变量
end;

procedure TDMForm.DataModuleCreate(Sender: TObject);
begin
try
adoc.connected := False;
ADOC.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
MainForm.Programer+'/table.mdb;Persist Security Info=False';
ADOC.Connected := True;
adoqryVt.Open;
except
ShowMessage('数据库连接失败！');
end;
end;

同意楼上：补充一点，如要加密码
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; Data Source='+sAppPath+'userinfo.mdb;
Persist Security Info=False;Jet OLEDBatabase password=123456';

如果有权限控制文件的话，建议你看看这个。

http://www.delphibbs.com/delphibbs/dispq.asp?lid=905232

var
str:string;
begin
str:= PromptDataSource(Handle,ADOConnection1.ConnectionString);
showmessage(str);
adoconnection1.Close;
adoconnection1.ConnectionString:=str;
adoconnection1.Open;
end;
／／或者打开ADO连接向导自己配置也行。记得uses adoconed.pas

haha,thanks,i received!