Application navigating slow

Hi!
I am facing a problem with a desktop database application built using ADO and VB6 with Access 2000 database. After running the application for an hour or so the navigation of records (MoveFirst, MoveNext, MovePrev, MoveLast) become very slow an all the forms.

Almost all of the forms are using the following code for opening a reordset.

Dim WithEvents rsRepOrder As Recordset

Private Sub Form_Load()
Dim strRepOrder As String
Set rsRepOrder = New ADODB.Recordset
If DataEnv.Conn.State = adStateClosed Then DataEnv.Conn.Open
strRepOrder = "Select * from Repair_Order order by Order_Date Desc"
If rsRepOrder.State = adStateOpen Then rsRepOrder.Close
rsRepOrder.Open strRepOrder, DataEnv.Conn, adOpenStatic, adLockOptimistic
End Sub

Note: Iam using a single Data Environment Connection Object to open all the recordsets in the application

Regards
Shahzad Aijaz

are you closing the connection to the DB?

Yes. But only at the Unload of the main MDI form of the application

Regards
Shahzad Aijaz