BeforeUpdateのADOの記述でエラー

質問

Access VBAです。
フォームの対象商品コードを入力後、他の項目にカーソルを移動すると

実行時エラー'91'
オブジェクト変数またはWithブロック変数が設定されていません。
というメッセージが表示され、
rs.Open "商品T", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
が黄色くなります。

コーディングは、以下の通りです。
Option Compare Database
Option Explicit
Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load() 'フォームの読み込み時
Set cn = CurrentProject.Connection 'DB接続
End Sub

Private Sub 対象商品コード_BeforeUpdate(Cancel As Integer)
rs.Open "商品T", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
Set rs = New ADODB.Recordset
rs.Index = "PrimaryKey"
rs.Seek 対象商品コード, adSeekFirstEQ
If rs.EOF Then
MsgBox ("該当する商品は存在しませんでした。")
Else
対象商品名.Caption = rs!商品名
End If
End Sub

回答No.1

kmetu · ベストアンサー

> rs.Open "商品T", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
> Set rs = New ADODB.Recordset

前後が逆なのではないでしょうか。

お礼

ありがとうございました。m(__)m