If I am not mistaken you update each row at a time with the UpdateBatch statement?

You can try processing all records first and then issue UpdateBatch with adAffectAll. This should not have any bearing on the writing of the data, but I have a feeling it can substantially speed up your process depending on the number of rows.

FWIW I don't use the data environment object much. (if that is what the deSPSS reference is)

>I connect to the SPSS database once and remain connected.
>
>For each row of data, I check the value of 400 questions in Numeric values of 1-26. Each number correspondes to a letter from a Proficiency Exam. I need to convert each of these answers into a correct/incorrect value of 0 or 1.
>
>Therefore, I do the following:
>
>

>Public Function MakeMods() As Boolean
>
>On Error GoTo errHandler
>
>Dim MyProgress As clsProgress
>
>Set MyProgress = New clsProgress
>
>frmProc.Hide
>
>Call MyProgress.ShowProgress("Updating SPSS Records", intCount)
>
>DoEvents
>
>With deSPSS.rsqryPE
>
>     Do While Not .EOF
>
>          If modRecodes.BeginRecode = True Then
>               .UpdateBatch adAffectCurrent       '  Set Data
>               MyProgress.UpdateProgress          '  Update Progress Bar
>          Else
>               .CancelBatch
>               GoTo errHandler
>          End If
>
>          .MoveNext
>
>     Loop
>
>End With
>
>MyProgress.HideProgress
>
>Set MyProgress = Nothing
>MakeMods = True
>
>Exit Function
>
>errHandler:
>     Set MyProgress = Nothing
>     MakeMods = False
>
>End Function
>
>

>
>The BeginRecode Procedure then calls a procedure for each of the 400 columns. Here is an example of what I do in each.
>
>

>
>Public Sub PE0101()
>
>'  Error Control
>     On Error GoTo errHandler
>
>'  Select Proper Recode
>     Select Case deSPSS.rsqryPE!PE0101
>
>     Case 1 - 7
>          deSPSS.rsqryPE!PE0101 = 0
>
>     Case 8
>          deSPSS.rsqryPE!PE0101 = 1
>
>     Case 9 - 26
>          deSPSS.rsqryPE!PE0101 = 0
>
>     End Select
>
>Exit Sub
>
>errHandler:
>     bolRecode = False
>
>End Sub
>
>

>
>I only open or requery once on begining the process. This application is a one time deal. it will need to be repeated only once in a month or two than it goes away. This is the temporary fix until I re-program an existing system.