CoInitialize(NULL);
        ADOQuery1->Close();
        ADOConnection1->Close();
         ShowMessage(vfdir+tabname);

        S.printf("Provider=MSDASQL.1;Persist Security Info=False;Data Source=Ôàéëû dBASE;Mode=Read;Initial Catalog= %s", vfdir);
        ADOConnection1->ConnectionString = S;
        ADOConnection1->LoginPrompt = false;

        ADOQuery1->SQL->Clear();
        ADOQuery1->Connection =  ADOConnection1;

        //Query block
        Sq.printf("select * from %s",tabname);
        ADOQuery1->SQL->Add(Sq);

       ADOQuery1->Active = true;[/quot]
      ...
     // CoUninitialize();