書籍内容に間違いがありました。謹んでお詫びいたしますとともに、以下の通りご報告いたします。
250ページ 第4章 マクロ・VBAを習得するために役立つ知識
「リスト4-3-4:レコードを削除」
プロシージャの先頭で変数cnn、rstを宣言する行が抜けています。(以下赤字部分)
Public Sub Sakujyo()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset