Соединение ADOConnection с Access

void __fastcall TFrmMain::FormCreate(TObject *Sender)
{
       TADOConnection* ADOConnection1;
       if(!FileExists(ExtractFilePath(Application->ExeName)+filename)){
           AnsiString ds = "Â êîðíåâîì êàòàëîãå îòñóòñòâóåò ôàéë ñ èìåíåì\n\n\t"+
              filename;
              if(Application->MessageBox(ds.c_str(),"Ïðåäóïðåæäåíèå",MB_OK+MB_TOPMOST+
               MB_ICONWARNING)==IDOK)
               {
                 Application->Terminate();
               }
        }
        else{
           AnsiString WayToBase=ExtractFilePath(Application->ExeName)+filename;
           ADOConnection1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+
             WayToBase+";Persist Security Info=False";
         }
         try
         {
                ADOConnection1->Connected=true;
         }
         catch(EADOError *e)
         {
                MessageDlg("Error while connecting", mtError,
                                TMsgDlgButtons()<<mbOK, 0);
                return;
         }
}