このエラーは、vb コードの次の行に表示されています
rs.Open "select * From Reservation where [table_number]=tablenumber.text and booking_date=bookingdate.Text", cn, adOpenStatic, adLockPessimistic
SQLクエリの問題です。メッセージの理由は、SQL パーサーが SQL クエリ内のトークンを識別できず、値を指定する必要があるパラメーターとして解釈するためです。
したがって、フィールド名またはテーブル名の一部を間違って入力したか、SQL を間違った方法で作成したかのいずれかです。私は後者だと思います、そしてそれは読むべきです
rs.Open "select * From Reservation where [table_number] = " & tablenumber.text & " and booking_date=" & bookingdate.Text, cn, adOpenStatic, adLockPessimistic
tablenumber
とbookingdate
はフォーム コントロールである可能性が非常に高いためです。
上記のクエリは、SQLクエリに正しいデータ型を使用する必要があるため、そのままでは機能しません。これは、スパース情報に基づいて推測できません。
選択基準の前後に () を追加することをお勧めします。
rs.Open "select * From Reservation where ( [table_number]=tablenumber.text and booking_date=bookingdate.Text )"