コンパイルエラー 変数が定義されていません

コンパイルエラー　変数が定義されていません

下記URLの質問を参考にＶＢＡに挑戦しています
http://questionbox.jp.msn.com/qa5863136.html

下記コードを既存のＡＣＣＥＳＳの中に新規作成したコマンドボタンに
組み込んで実行したところ
下記変数にコンパイルエラー　変数が定義されていませんと出てきます、

objConnection
objRecordSet
strkanri
arrkanri


自分なりに

Dim ~としたのですがうまくいきません

どのように変数を宣言してよいかお教え願います。

記述コード

Private Sub コマンド0_Click()
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const ForReading = 1

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = c:\test\商品管理.mdb"

objRecordSet.Open "SELECT * FROM 商品TBL", _
objConnection, adOpenStatic, adLockOptimistic

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\test\管理.csv")

Do Until objFile.AtEndOfStream
　　　　strkanri = objFile.ReadLine
　　　　MsgBox strkanri
　　　　arrkanri = Split(strkanri, ",")

　　　　objRecordSet.Filter = "納入日=" & arrkanri(0) _
　　　　　　　　　　　　　　& " AND 仕入NO ='" & arrkanri(1) & "'"
　　　　Do While (Not objRecordSet.EOF)
　　　　　　objRecordSet("管理コード") = arrkanri(2)
　　　　　　objRecordSet.Update
　　　　　　objRecordSet.MoveNext
　　　　Wend
　　Loop


objRecordSet.Close
objConnection.Close



End Sub

No.1 ベストアンサー 回答者： nattocurry 回答日時： 2010/06/18 13:42

> 自分なりに

> Dim ~としたのですがうまくいきません

提示されているコードの中には見当たりませんが・・・

この回答へのお礼

ご意見ありがとうございます、

今までは、既存のフォームにコマンドボタンを追加作成したのですが、

新しくフォームをひとつ作りコマンドボタンをひとつだけ作って同じコードを記述した結果
最初のエラー表示は無くなりました。

因果関係分かりませんが、とりあえず新しいフォームにで運用するつもりです。

（少し急いでこなさなければならない事情がありまして）

ただ新たな問題が待ち受けていました、

新しく質問をしたいと思いますので、よろしければご意見をお待ちしています。

お礼日時：2010/06/18 19:05

No.2 回答者： bin-chan 回答日時： 2010/06/18 15:20

ACCESSのバージョンにもよるけど、ADOへの参照設定をしてあるのでしょうか？