solさんすみません、名前記載してませんでしたね。
平井と申します。改めてよろしくお願いします。

コネクションプールはVB6では使用できないとか・・・。ADOならできそうな気もしますが。PHPで組むときもコネクションプールとか気にしたことないので、そこら辺も色々調べてみます。
妹尾さんありがとうございます。ついでにpingも治りました。MySQLへはもちろん自機なので<1msecでした。
ソフトウェアの構成は以下のようになっています。フォームロードの時点で「開ける」を行い、起動中は「SQLする」でいくつものデータを処理して、ソフトクローズで閉じる処理をしています。

'開ける
Set DBConn = CreateObject("ADODB.Connection")
Set DBRS = CreateObject("ADODB.Recordset")
DBConn.Open = "DRIVER={MySQL ODBC ・・・"

'SQLする
DBRS.Open SQL文, DBConn
Set SQL_String = DBRS.fields
DBRS.Close

'閉じる
Set DBRS = Nothing
Set DBConn = Nothing

マシンスペック等は以下の通りです。ちなみにPHP+MySQLでは問題なく、長くても0.006秒以下の処理がVB6＋MySQLなら3.4秒かかります。こんなものでしょうか？
CPU：PentiumM1.1
RAM：768MB
MySQL：5.0.18-nt
データベースのデータサイズ：96KB


----- Original Message ----- 
From: "kurokawa" <ml@xxxxxxxxxx>
To: <ml@xxxxxxxxxx>
Sent: Friday, February 23, 2007 11:12 AM
Subject: [mysql 13758] Re: 処理速度について


> Susumu.Hiraiさん
>
> solでございます
>
> コネクションプール設定していますか？
>
>
>
>
> P.S.
>
> 名前くらいは名乗りましょう
> DBのスペック（容量等）、OS、マシンスペック明示しましょう
>
>
>
> Susumu.Hirai wrote:
>> いつもお世話になります。
>> VB6+MySQL+ADOでソフトを構築していますが、処理が遅すぎて困っています。基
>> 本的に３つの関数を作って起動したらSQL_StringでSQLを投げて取得するような
>> やり方をしていますが、★印のあるところで３秒程度かかります。
>> PHP＋MySQLで組む場合と速度が歴然と違いますが、何かいい策はありませんで
>> しょうか？最悪VB6＋MySQL+PHPで組み直そうかと考えていますが・・・。
>>
>> Function SQL_Open()
>>    'SQL接続をオープン
>>    Set DBConn = CreateObject("ADODB.Connection")
>>    Set DBRS = CreateObject("ADODB.Recordset")
>>    DBConn.Open = "DRIVER={MySQL ODBC 3.51 Driver};" + _
>>                                 "SERVER=127.0.0.1;" + _
>>                                 "DATABASE=****;" + _
>>                                 "UID=****;" + _
>>                                 "PASSWORD=****;" + _
>>                                 "useUnicode=true &
>> characterEncoding=SJIS;" + _
>>                                 "OPTION=16834;STMT=set names sjis"
>> End Function
>>
>> Function SQL_Close()
>>    'SQL接続を閉じる
>>    Set DBRS = Nothing
>>    Set DBConn = Nothing
>> End Function
>>
>> Function SQL_String(strSQL As String) As Object
>>    'SQLを実行してフィールドを返す
>>    On Error Resume Next
>>    DBRS.Close
>>    DBRS.Open strSQL, DBConn '★ココが時間かかる
>>    Set SQL_String = DBRS.fields
>>    On Error GoTo 0
>> End Function
>>
>
>