いつもお世話になります。
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