保存SQL数据时，sqlservr.exe占用cpu很高,请问怎么修改？

代码如下
txtSQL = "select A,S,D,E,F,G,H from TEST where A= '" & bomrowID.Text & "' order by s"
mrc = ExecuteSQL(txtSQL, msgtext, ConnectString)
for FgRow=1 to msFg.rows-1

mrc.Fields("A")Value = msFg.get_TextMatrix(FgRow, 0)

mrc.Fields("S")Value = msFg.get_TextMatrix(FgRow, 1)

mrc.Fields("D")Value = msFg.get_TextMatrix(FgRow, 2)

mrc.Fields("E")Value = msFg.get_TextMatrix(FgRow, 3)

mrc.Fields("F")Value = msFg.get_TextMatrix(FgRow, 4)

mrc.Fields("F")Value = msFg.get_TextMatrix(FgRow, 5)

mrc.Fields("H")Value = msFg.get_TextMatrix(FgRow, 6)

mrc.Update()
next FgRow
mrc.Update时耗费时间很长，数据库大了后，耗费时间快1秒了。菜鸟求高手指点，先谢谢啦！

1秒不是很长吧，如果觉得很长那就优化一下sql

查看一下SQL执行的时间分析工程。找到时间分配，建索引等来优化。

对a这列做索引可以立刻优化你的性能。