anさん
ヒント有難うございます。

If TextBox1.Text.Length > 0 And TextBox2.Text.Length > 0 Then
                wOK = True
                sql += " WHERE (生産者番号 between " & TextBox1.Text.Trim & " and " & TextBox2.Text.Trim & ")"
end if

にした事で欲しい結果が出るようになりました。

しかし、データベースには登録日時という項目があり、それも検索条件の一部に入っています。
年月日を入力するだけで、入力範囲のデータを表示させたいのですが↑のコードを使っても出来ませんでした。
調べてみたら、Betweenでは出来ない。年月日何時何分何秒まで正確に入力しないといけない。などの条件は分かりましたが、ソースコードを組めません。
ご指導の程宜しくお願いします。

今回の件でデバッグ作業の重要性を痛感しました。
ソースコードの実力とデバッグ作業の実力の両方が無いとキツイです。