アクセス 日付指定をしたグラフが表示されるようにしたい

前提

アクセスで見積システムを作成しています。

実現したいこと

フォーム上で、日付指定をしたグラフが表示されるようにしたいです。
テキストボックスに検索したい日付を入力し、検索ボタンを押したら
動くようにしたいです。

発生している問題・エラーメッセージ

from句の構文エラーですと表示されてしまいます。

該当のソースコード

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim vsql As String

vsql = "select 発行日 from Qグラフ"
vsql = vsql & "where 発行日 between #" & Me!日付終わり & "# and #" & Me!日付終わり & "#"

Set db = CurrentDb
Set rs = db.OpenRecordset(vsql)

この後、どのような処理が必要になるか分かりませんでした。

試したこと

クエリで抽出条件にbetween関数を入力して動作させようとしましたが、抽出条件を入力するとグラフが全く表示されなくなってしまいました。
抽出条件は下記の通りです。
Between [Forms]![Frmグラフ]![日付はじめクエリ用] And [Forms]![Frmグラフ]![日付終わりクエリ用]

別の方法が無いかと探したところvbaだったら出来るかもと思い相談しました。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。