SQL Time Out Error

I'm using SQL 2000 in my VB sales related application. Application will records daily consumption in the database. At the end of month, sales summary(.CSV format) is generated based on the data recorded in the database. Sales summary includes day by day total credits, profits, COGS, Grand Total etc....
The application takes much time (around 3 min for generating 3 reports) if item consumption is more..
During that time, All request to the server resulting an SQL timeout error.
Pls help me how to solve this problem..
Ive tried using secondary database for sales summary generation . But it is not work out..

Following is the part of my coding...



FromDate = Format(FromDate, "yyyy-mm-dd HH:MMs")
Todate = Format(Todate, "yyyy-mm-dd HH:MMs")
DoEvents

' Total Days
TotalDays = DateDiff("d", FromDate, Todate)

' Create View - View_totalDisputes - for a month (fromdate and ToDate)
adoConnection1.Execute ("if exists (select * from sysobjects where id = object_id(N'[dbo].[View_totalDisputes]') and OBJECTPROPERTY(id, N'IsView') = 1) drop view [dbo].[View_totalDisputes]")
adoConnection1.Execute ("create view View_totalDisputes as select sum(Price) + (Sum(Price) * Tax / 100 ) as Total , Date_Time from TblSalesReport where ItemId <> " & MyESafeId & " and Date_Time Between '" & FromDate & "' and '" & Todate & "' " & _
" group by Price ,Tax , Date_Time ")
DoEvents
TotalDays = TotalDays + 1

' Find Sum Total of each day
For i = 1 To TotalDays
DoEvents
Todate = CDate(FromDate) + 1
Todate = Format(Todate, "yyyy-mm-dd HH:MMs")
MyDays(i) = Format(FromDate, "MM-DD-YYYY")
FromDate = Format(FromDate, "yyyy-mm-dd HH:MMs")

' Days Total
Set rTot = adoConnection1.Execute("Select Sum(Total) as Tot from View_TotalDisputes where Date_Time Between '" & FromDate & "' and '" & Todate & "'")
If Not rTot.EOF Then
If Not IsNull(rTot!tot) Then
MyTotal(i) = Format(rTot!tot, "Fixed")
DoEvents
Else
MyTotal(i) = 0
Do_DoEvents
End If
DoEvents
Else
MyTotal(i) = 0
DoEvents
End If

DoEvents


' Disputes
Set rDispute = adoConnection1.Execute("Select sum(Price + ((price * tax) / 100)) as Tot from tblitemlog where ItemId <> " & MyESafeId & " and comments is Not null and TobeCharged = 0 and date_time between '" & FromDate & "' and '" & Todate & "' ")
If Not rDispute.EOF Then
If Not IsNull(rDispute!tot) Then
MyDisputes(i) = Format(rDispute!tot, "Fixed")
DoEvents
Else
MyDisputes(i) = 0
DoEvents
End If
DoEvents
Else
MyDisputes(i) = 0
DoEvents
End If

' profit column - added on 14/09/06
MyProfit(i) = Format(Val(MyTotal(i)) - Val(MyDisputes(i)), "Fixed")

' total occupancy
'' TotOccupancy = TotOccupancy + MyOccupancy(i)

' Date changing
FromDate = CDate(FromDate) + 1
Todate = CDate(Todate) + 1
Next i
DoEvents
DoEvents

' Total Rooms in the hotel
Set rRoms = adoConnection1.Execute("Select Count(*) as Tot from TblRooms")
If Not rRoms.EOF Then
If Not IsNull(rRoms!tot) Then
TotalRooms = rRoms!tot
DoEvents
Else
TotalRooms = 0
DoEvents
End If
DoEvents
End If
DoEvents

' Total and avg. of Gross Ttoal
Set rNet = adoConnection1.Execute("Select Sum(Total) as SumTotal From View_TotalDisputes ")
If Not rNet.EOF Then
If Not IsNull(rNet!SumTotal) Then SumToal = Format(rNet!SumTotal, "Fixed")
AvgTotal = Format(SumToal / TotalDays, "Fixed")
DoEvents
End If

DoEvents
DoEvents

revPar = Format(AvgTotal / TotalRooms, "Fixed")
AvgOccupancy = Format(TotOccupancy / TotalDays, "Fixed")

' 14/09/06
' Totals and Avg for Disput and profit columns
Dim GTotDispute As Double
Dim GTotProfit As Double
Dim AvgDispute As Double
Dim AvgProfit As Double
Dim inc As Integer

' G Total
For inc = 0 To TotalDays
GTotDispute = GTotDispute + Val(MyDisputes(inc))
GTotProfit = GTotProfit + Val(MyProfit(inc))
Next inc

DoEvents
DoEvents
' Avg Dispute and AvgProfit
AvgDispute = GTotDispute / TotalDays
AvgProfit = GTotProfit / TotalDays