SetCurrentDir(Extractfilepath(Application。ExeName))；
然後使用相對路徑。
妳寫在創建事件下。沒錯
您應該重寫連接字符串。
程序TForm1。FormCreate(發件人:to object)；
開始
SetCurrentDir(Extractfilepath(Application。ExeName))；
ADOConnection1。Clsoe
ADOConnection1。ConnectionString:=
提供商=微軟。Jet . OLEDB.4.0數據源= bir.mdb持久安全信息= False '；
ADPConnection。開放；
結束；
您必須確保數據庫和程序在同壹個目錄中，否則會出現錯誤。