BCB连接access数据库怎么连接，怎么修改，最好给个实例

//DatabasePath是全局string变量，内容为文件路径如“c:\db.mdb”
if(FileExists(DatabasePath)) //如果数据库存在
{
//设置连接字符串，Persist Security Info=False表示不保留密码，防止后门。如果数据库有密码则加上Password项
ADOQuery1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite|Share Deny None;Data Source="+DatabasePath+";Persist Security Info=False;Jet OLEDB:Database Password=123456";
}//123456为数据库的密码

ADOQuery1->SQL->Clear(); //清除sql命令
ADOQuery1->SQL->Add("Select online from Users where id="+IntToStr(UserId));//加入sql命令
ADOQuery1->Open();//执行，注意，select的时候用Open方法，其他的用ExecSQL方法。