How make this loop run faster ?

[Oleg]

It pretty much does what i want it to do, but runs rather slow
anything i can do to make it faster ?

strSQL = "SELECT * from qryResult"
Set rec = CurrentDb.OpenRecordset(strSQL)
Dim cusip As String
Dim spread As Integer
Dim dDate As Date
Dim Order1 As Integer
Order1 = 1
rec.MoveFirst

'loop
Do While Not rec.EOF
cusip = rec(0)
spread = rec(3)
rec.Edit
    rec(18) = Order1
    rec(19) = Order2
rec.Update
rec.MoveNext
If cusip <> rec(0) Then
    Order1 = Order1 + 1
    
    If spread <> rec(3) Then
        Order2 = 1
    Else
        Order2 = Order2 + 1
    End If
End If
If spread <> rec(3) Then
    Order2 = Order2 + 1
End If
Loop
'close recordset
rec.Close
Set rec = Nothing
MsgBox "done"

End Sub

 

[gemma-the-husky]

what is it trying to do?

why can you not do this with an update query?