VBA 424オブジェクトが必要です。のご相談

Question

宜しくお願い致します。
VBAでマスタの内容を更新したいのですが　実行すると
424オブジェクトが必要です。　とでます。
txt案件_内容.Value の内容は取れていまして、現在はQryString,のあと

MsgBox Err.Number & " " & Err.Description　に行き
424オブジェクトが必要です。となります。

ソースコードは以下になります。

```VBAソースコード
Private Sub cmd_update_Click()
On Error GoTo cmd_update_Click_Err
    
    QryString = "UPDATE 管理マスタ SET 内容='" & Me.txt案件_内容.Value & "'" _
    & " WHERE 管理番号 = '" & lbl管理番号.Caption & "'"
    rstData.Open Source:=QryString, ActiveConnection:=Con, CursorType:=adOpenStatic
 
    
    MsgBox "更新終了しました。"



Exit Sub

cmd_update_Click_Err:
    MsgBox Err.Number & " " & Err.Description

End Sub

どなたか恐れ入りますが助言いただけませんでしょうか？
よろしくお願いします。

Answer 1

質問記載のコードにはrstDataが設定されている箇所が存在しません。
rstDataを宣言し期化してください。

Comments

[No77]

アドバイスありがとうございます。
Dim rsrData　As ADODB.Recordset と記述しましたが、ここまでは正しいでしょうか？

こちらのオブジェクトが必要です。はでなくなりありがとうございました。
現在は上記の追加で

9１オブジェクト変数またはwithブロック変数が設定されていませんと出るようになりました。
本当に恐れ入ります。すみません。