Set xlsheet = xlBook.Sheets("Packing List")
with xlsheet
dEntry.Open "select * from InitbkEntry where FbillID=" & rs.Fields("FBillID"), Conn
dEntry.MoveNext
Do While Not dEntry.EOF
.Copy After:=xlsheet 'Sheets(k) 'before:=Sheets(1)
xlsheet.Next.Name = "Packing list--" & dEntry.Fields("FGh")
xlsheet.Next.Cells(4, 1) = "PACKING LIST(" & Trim(Str(k)) & ")"
k = k + 1
dEntry.MoveNext
Loop
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
'xlApp.Workbooks.Add
xlApp.Visible = True
'office 2000 is OK
'xlBook.Worksheets.Add Count:=rstYear.RecordCount - 1, After:=Sheets("Sheet1")
xlApp.Worksheets.Add Count:=rstYear.RecordCount - 1, After:=Sheets("Sheet1")
If Not rstYear.EOF And Not rstYear.BOF Then
rstYear.MoveFirst
For j = 1 To rstYear.RecordCount
'Set xlSheet = xlBook.Worksheets.Add
'Set xlSheet = xlBook.Worksheets(j)
Set xlSheet = xlApp.Worksheets(j)
xlSheet.Name = rstYear!BILLING_DATE
xlSheet.Activate
sYear = rstYear!BILLING_DATE