以下のsql文でコメントアウトしている部分を除くとちゃんと動くのですがそれを加えるとエラーが出てしまいます。ひょっとしたらサブクエリを使えばと思い、いろいろ試していますがうまくいきません。ご教授お願いします。ちなみにfuncメーカーコード(メーカー.text)=5です。

SQL = ""
SQL = SQL & "select"
SQL = SQL & " 伝票データ.相手先コード"
SQL = SQL & ",伝票データ.相手先名"
SQL = SQL & ",伝票データ.発行日"
SQL = SQL & ",SUB伝票データ.メーカーコード"
SQL = SQL & ",SUB伝票データ.商品コード"
SQL = SQL & ",SUB伝票データ.商品名"
SQL = SQL & ",SUB伝票データ.売価"
SQL = SQL & ",SUB伝票データ.金額"
SQL = SQL & ",SUB伝票データ.単位"
SQL = SQL & ",SUB伝票データ.数量"
SQL = SQL & ",SUB伝票データ.単価"

SQL = SQL & " from 伝票データ"
SQL = SQL & " right join SUB伝票データ"
SQL = SQL & " on 伝票データ.伝票番号=SUB伝票データ.伝票番号"
SQL = SQL & " where year(伝票データ.発行日)=" & Mid(日付.Text, 2, 4)
SQL = SQL & " and month(伝票データ.発行日)=" & Mid(日付.Text, 6, 2)

'SQL = SQL & " and SUB伝票データ.メーカーコード=" & funcメーカーコード(メーカー.Text)