以下のコードを使用すると、「オブジェクトが閉じているときは操作は許可されません」というエラーが表示されます。ここで何が欠けていますか?
 Dim dbconnect, dbresults
 Set dbconnect = CreateObject("ADODB.Connection")
 Set dbresult = CreateObject("ADODB.Recordset")
dbconnectString =  "driver=iSeries Access ODBC Driver;System=***;UID=***;PWD=***;Naming=1"
dbconnect.Open (dbconnectString)        
mySQLQuerry ="Select XOORIG  from FIQDLIB.FSFPXO as400xo WHERE as400xo.xoefdt = 1130418 and as400xo.xotrsq in (75440)"
dbresult.Open mySQLQuerry, dbconnect