ADADSUtility1.DriverLink := ADPhysADSDriverLink1;
ADADSUtility1.Database := 'C:\DB;ServerTypes=Local';
ADADSUtility1.Tables.Add('EVENT.DBF');
ADADSUtility1.TableType := ttVFP;
ADADSUtility1.Pack;