次のようなWith文の中にエラー処理を入れたいのですが
そういうことは可能でしょうか？

With rs_TmpFile
.Fields("aaa").Value = str_Sample1
.Fields("bbb").Value = str_Sample2
.Update
End With