別のパソコンでプログラムの実行が出来ません (ID:120378)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。 あるパソコンでは実行できるプログラムが別のパソコンでは実行できません。 要約コードは Sub Main() CHK1 = INIT_RTN If CHK1 = 1 Then KANRI_ADOCNN.Close End End If MENU1.Show End Sub Function INIT_RTN() INIT_RTN = 0 On Error GoTo STPERR FIL_NAME = App.Path & "\CONTROL.mdb" FILNO = FreeFile Open FIL_NAME For Input As #FILNO Input #FILNO, FOLNAME, DATAMDB Close #FILNO Set KANRI_ADOCNN = New ADODB.Connection Exit Function STPERR: INIT_RTN = 1 MsgBox "プログラムを終了します。" End Function で、Set ・・・のところでエラー処理して終了してしまいます。 CONTROL.mdbはaccess2000ファイルでどちらのパソコンでも単独で起動します。 環境の問題と思いますがどこをみればいいのしょうか？ 教えて下さい。よろしくお願いします。