> sql += " WHERE (生産者ｺｰﾄﾞ Between '" & TextBox1.Text.Trim & "%' and '%" & TextBox2.Text.Trim & "%')"

「BETWEEN」とLIKEのワイルドカード（「%」）は混同できないからだと思います。

まずは、VB上ではなく、SQLだけを実行するツールの方で
SQLが正常に動作するかを確認した方がよいと思います。

他にも提示されたプログラムはおかしいところがありそうですが、
取り急ぎBETWEENについてだけ。

（名前が変わっているけど質問者さんは同じ？）