jet.oledb.4.0って3.51に比べておそいの。

mdbをAccess2000で変換し、connection string をjet.oledb.3.51から4.0にかえて、activex
とか変えて、プログラムに結合しなおしたが処理が3.51に比べて
10倍以上かかるようになってしまった。そんなに4.0って遅いの。
ちなみに自分はAcess95をAccess2000にｱｯﾌﾟして使ってます。
ソースは以下のようですがとくに問題無いとおもうんだけど。
だれか教えてください。

Private Sub subTransCostDwn()
Dim SP(12)
filenum = FreeFile
Open gListpath & "\rxalltrncost.csv" For Input As #filenum

SQL = "delete * from TransCost "

ADO_Connection.Execute SQL, , adCmdText

Do Until EOF(filenum) = True
Input #filenum, d0, d1, d2, _
, SP(1), SP(2), SP(3), SP(4), SP(5), SP(6), SP(7), SP(8), SP(9), SP(10), SP(11), SP(12)

SQL = "select * from TransCost where dealyear = " & Format(wAcntYear)
SQL = SQL & " and transcd = '" & d2 & "' and lensnm = '" & d4 & "'"

Set rs = New ADODB.Recordset
rs.Open SQL, ADO_Connection, adOpenStatic, adLockOptimistic

If rs.RecordCount = 0 Then
rs.AddNew
rs!dealyear = d1
rs!transCd = d2

End If

For i = 1 To 12
j = i + 3
If j > 12 Then
j = j - 12
End If
rs.Fields("shpqty" & Format(j)).Value = SP(i) + rs.Fields("shpqty" & Format(j)).Value

Next
rs.Update
rs.Close
Loop


Close #filenum


End Sub

2げと。

｜　　　　今だ！
　￣￣￣￣￣∨￣￣￣
　ﾋｮｲ ,　　∧∧
　　　（ ＿(,,ﾟДﾟ)　　 　 ミ 　_＿＿
　　⊂＿＿_,.つつ　　　　　 て.　　）　ｸﾙﾘ
彡　　　　　　　　　　　　 　 ⊂　 .ﾉ
　　　　　　　　　　　　　　　("　　)　　 　 　 　 　 ∧∧　　 　 ／￣￣￣￣￣￣￣
.　　　　　　　　　　　　　　　∨∨　彡 　　　　　 (,,ﾟДﾟ)　　＜　　2ゲットォォォ！
　　　　　　　　　　　　　　　　　　　　　　　　　　 /　 ,つ　　　 ＼＿＿＿＿＿＿＿
　　　　　　　　　　　　　　　　　　　　　　　 　 〜､　ﾉつ　　ｽﾀｯ !
　　　　　　　　　　　　　　　　　　　　　　　　　　 .(/
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

ずさー

うんちがしたくなってきた

>>5
ここのスレでしてください。

　　∧＿∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 （　・∀・）　＜　１０円あげるから >>1 は頑張ってね。
　 （　　　　つ�I ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 ｜ ｜　|
　 （_＿）＿）
　

　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（ ﾟДﾟ)￣￣|　　　＜　　2ゲット失敗したから寝る！
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼
|　 ＼ 　　　　　 　 　 ＼ 　　￣￣￣￣￣￣￣￣￣
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |＿＿＿＿＿＿＿|

　　　　　　　　　 　∬⌒⌒⌒＼
　　　　　　　　　　,lllllll　　　　 　＼
　　　　　　　　 　.llllllll　　 　彡　ミ　
　　　 　　　　　 .llllll|　　　　(o)　(o)
　　　　　　　　 .llllll!　　　　 　　ω　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　ノﾘlll　　　　∴∵３　　<　　顔を変更して、色んな人にさせて下さい
　　　　 ,r‐''''^¨^⌒πσｰ-ヽ了　　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　 ,ﾉ｀,　　　　　　　　　　　 ＼
　　　ﾉ／　　　　　　　　　　　　　ヽ
　　ι.｝　　　　　　　　　　 λ　　　 ）
　　　ヽ(,.　　　　　　　　　　ﾉ!　　 r'
　　　　(　　　　　　　　　　 l　 .,／
　　　　 ﾉ,,,,,,,,,,,,,,,,,,,,,,,,,,,,丿へ
　　　 ノ 　　 　　　　　　　　　 ,）
　　　(　　∵ ∧∵　　　　／,,丿
　　　＼,,,,／人＼＿＿ノ　　　/
　　（　　)　（＿_） 　　　（　　　)
　　《　　l （＿＿_）　　　《￣￣》
　《＿＿（＿＿＿_）　　《＿＿__》

>>8
おいら、デフォルトの名無しの3倍の速度だからな。

　　　　　　 ＿＿＿＿＿　　　
　　　　　 ／//////////ヽ,,
　　　　　ｆ ﾒー-----ー弋メヽ
　　　　　ﾄ|　___ ____ ____　.|ミﾐ|　 　 　＿＿＿＿＿＿＿＿＿＿
　　　　　ﾄ|_,,,,,,__ﾒ __,,,,,,_　|ミﾐ|　 　／
　　　　　ｆ|.-=・=Ｈ-=・=~iｰ6}ﾘ　＜　　1のせいで
　 　　　 'ﾋ______ﾉﾊ､_____ﾉ　!!|　　　|　 うんこ出てくる
　　　 　　ｆ　 _, ,ム、､_　　 ./　　 　＼
　　　　　 ヽ　ｨ-==ｰ-i, ,ノ　　　　　 　￣￣￣￣￣￣￣￣￣￣
　　　　　　 ＼,_＿＿_／,,,,,,
　　　　　 ,r‐''''^¨^⌒　　　　＼
　　　 ,ﾉ｀,　　　　　　　　　　　 ＼
　　　ﾉ／　　　　　　　　　　　　　ヽ
　　ι.｝　　　　　　　　　　 λ　　　 ）
　　　ヽ(,.　　　　　　　　　　ﾉ!　　 r'
　　　　(　　　　　　　　　　 l　 .,／
　　　 ノ 　　 　　　　　　　　　 ,）
　　　(　　∵ ∧∵　　　　／,,丿
　　　＼,,,,／人＼＿＿ノ　　　/
　　（　　)　（＿_） 　　　（　　　)
　　《　　l （＿＿_）　　　《￣￣》
　《＿＿（＿＿＿_）　　《＿＿__》

　　∧＿∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 （　・∀・）　＜　１円あげるから >>1 は�I円返してね。
　 （　　　　つ�@ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 ｜ ｜　|
　 （_＿）＿）

　　∧＿∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 （　・∀・）　＜>>1 10円から1円引くといくらになる？
　 （　　　　つ�I ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 ｜ ｜　|
　 （_＿）＿）

　　　　(　　　　　　　　　　 l　 .,／
　　　 ノ 　　 　　　　　　　　　 ,）
　　　(　　∵ ∧∵　　　　／,,丿
　　　＼,,,,／人＼＿＿ノ　　　/
　　（　　)　（＿_） 　　　（　　　)
　　《　　l （＿＿_）　　　《￣￣》
　《＿＿（＿>>1＿_）　　《＿＿__》

>>11
便秘の奴はこのスレに書け！

http://www.ss.iij4u.or.jp/~club/main.html
(ﾟдﾟ)ﾝｺｰ

単発質問スレを立てるのは止めてください。

MS-Access に関する質問はこのスレにお願します。
Access使い集合！
http://pc.2ch.net/test/read.cgi/tech/1005078204/

Visual Basic に関する質問はこのスレ。
★★VB初心者質問スレ Part9(´･ω･`)★★
http://pc.2ch.net/test/read.cgi/tech/1020830472/

練習