数据库连接：access

sDataPath := ExtractFilePath(Application.ExeName) + '123.mdb';

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + sDataPath + ';Persist Security Info=False';