はじめまして。宜しくお願い申し上げます。

SQLServer2005の一つの表（レコード数20万件）の全レコードに数値をセットする
だけの処理なのですが、コマンドボタンを押してから返ってくるまでに約8分掛か
っています。VB2005側で出来る速度アップの方法があれば、ご教授いただきたく、
宜しくお願い申し上げます。

cn.ConnectionString = "Provider = " & strProvider & _
";Data Source = " & strServerName & _
";Initial Catalog = " & strDBName & _
";User ID = " & strUserID & _
";Password = " & strPassword
cmd.CommandTimeout = 60 * 2
da = New OleDbDataAdapter("SELECT * FROM TBL_A", cn)
da.Fill(ds, "TBL_A")
For intDataCount = 0 To ds.Tables("TBL_A").Rows.Count - 1
    ds.Tables("TBL_A").Rows(intDataCount)("DISTANCE") = 3333.44
Next
cmdBuilder.DataAdapter = da
da.Update(ds, "TBL_A")