请问如何用TDatabase直接连接Access库?


     void __fastcall TForm1::FormCreate(TObject *Sender)
     {
       AnsiString DATABASE_NAME = "DATABASE NAME="+GetCurrentDir()+"\\DATA\\DELPHIBBS.MDB";
       DataSource1->DataSet = Table1;
       DBGrid1->DataSource = DataSource1;
       Database1->DriverName = "MSACCESS";
       Database1->Params->Clear();
       Database1->Params->Add(DATABASE_NAME);
       Database1->Params->Add("USER NAME=");
       Database1->Params->Add("OPEN MODE=READ/WRITE");
       Database1->Params->Add("LANGDRIVER=");
       Database1->Params->Add("SYSTEM DATABASE=");
       Database1->Params->Add("PASSWORD=");
       Database1->LoginPrompt = false;
       Database1->DatabaseName = "Fuweng";
       Table1->DatabaseName = "Fuweng";
       Table1->TableName = "letters";
       Table1->Active = true;
     }