Using VB.Net, I am updating 122 records by replacing a field with an empty value. This is terribly long. I takes about 4 to 6 seconds while I can have this in milliseconds in VFP. How can I optimize the following code to obtain the same optimization:

            ' Reset the date on all
            loDataView = loDataProvider.oDataView
            For lnCounter = 1 To loDataProvider.nCount
                loRow = loDataView(lnCounter - 1).Row
                loDataProvider.ParameterClear()
                loDataProvider.ParameterAdd("AI", loRow("CCS_PK"))
                If loDataProvider.SQLUpdate("UPDATE MitTelLog " + _
                 "SET MitTelLog.XMLDowndt=" + Framework.DateFunction.GetEmptyDate() + " " + _
                 "WHERE MitTelLog.AI=?", Framework.App.aConnection(1)) = False Then
                    Throw New System.Exception(Framework.App.cError)
                End If
            Next