Execute package from VB - Taking so long....

[sqldevrequiretektips]

Using Microsoft DTS Package object library I am executing DTS package with in VB environment

WLActCat_WLDay – table has 5000000 Records (SQL Server Tabel)
More detail on WLActCat_WLDay – No Index define on any field

Custtb – table has 45000 Records (SQL Server Table)
Cluster Index define on Cust_Life_Num

Source = Select A.Cust_Life_Num, A.WLActCatId, A.WLDayId, A.WeekNo " & _
"from WLActCat_WLDay A " & _
"Inner Join (select distinct (cust_life_num) from CUSTTB where " & where_sqldb & " ) B" & _
" On A.Cust_Life_Num = B.Cust_Life_num"

(sqldb – string variable - what user selected from VB Form)
Destination Table: tblWLActCatId (Local Access Table



In the package I am just transferring records, which I received from above query to Ms access table

Ms Access table Name:

tblWLActCatId : - No Index on any field

CustLifeNo
WLActCatId
WLDayId
WeekNo

When execution complete local ms access table(tblWLActCatId) has more then 2750000 Records..


But it’s taking more then 15 minutes when I call package.execute.

So, Is anybody can help me out to improve performance and reduce the time

Any Suggesion would really appriciate..

AD