Вопрос - зачем для обновления использовать цикл? Если попробовать просто запрос на обновление. Поскольку в качестве нового значения используется функция (как я понял, клиентская), параметр которой - некоторое поле из обновляемой таблицы (не обязательно), то в лоб задачу не решить: я тут маленько поэксперементировал с таблицей, у которой 62 тыс. записей:

Option Explicit

Private Sub cmdTest_Click()

Dim cnn As New ADODB.Connection
Dim strConn As String
Dim strSQL As String
Dim rst As New ADODB.Recordset
Dim tStart As Date
Dim tEnd As Date

rst.CursorLocation = adUseClient
rst.LockType = adLockPessimistic

strConn = "Provider=SQLOLEDB.1;Password=1111;Persist Security Info=False;User ID=fake;Initial Catalog=mkvd;Data Source=10.80.180.108"
cnn.Open strConn
' Таблица содержит около 62 тыс. записей
' Первый вариант - с помощью UPDATE запроса. На выполнение запроса затрачено около 2-х секунд. В качестве нового значения выступает результат пользовательской функции dbo.fnTest, которая хранится на сервере. У пользователя должны быть права на ее выполнение



strSQL = "UPDATE tblСтатТалон SET ВозрБольного=dbo.fnTest([ВозрБольного])"

tStart = Time
DoEvents
cnn.Execute (strSQL)
tEnd = Time

MsgBox "update запрос затратил " & DateDiff("s", tStart, tEnd) & " секунд(ы)"

' Второй вариант: с помощью набора и цикла. На выпоолнение запроса затрачено около 130 секунд. Тут без слов все ясно.
strSQL = "SELECT ВозрБольного FROM tblСтатТалон"
rst.Open strSQL, cnn

tStart = Time
DoEvents
Do Until rst.EOF
rst![ВозрБольного] = 10
rst.MoveNext
Loop
tEnd = Time

MsgBox "do loop затратил " & DateDiff("s", tStart, tEnd) & " секунд(ы)"

If cnn.State = 1 Then
cnn.Close
Set cnn = Nothing
End If

If rst.State = 1 Then
rst.Close
Set rst = Nothing
End If

End Sub

Итог - первый метод на два порядка быстрее и позволяет использовать строковое выражение функций, что может быть очень удобно