If TextBox1.Text.Length > 0 And TextBox2.Text.Length > 0 Then
            If wOK = True Then
                sql += " WHERE (生産者ｺｰﾄﾞ Between '" & TextBox1.Text.Trim & "%' and '%" & TextBox2.Text.Trim & "%')"
            Else
                If TextBox1.Text.Length > 0 Then
                    wOK = True
                    If RadioB.Checked Then
                        sql += " WHERE (生産者ｺｰﾄﾞ Like '%" & TextBox1.Text.Trim & "%')"
                    Else
                        sql += " WHERE (生産者ｺｰﾄﾞ Like '" & TextBox1.Text.Trim & "%')"
                    End If
                End If

                If TextBox2.Text.Length > 0 Then
                    If wOK = True Then
                        sql += " AND "
                    Else
                        sql += " WHERE "
                    End If
                    sql += " (生産者ｺｰﾄﾞ Like '"
                    If RadioB.Checked Then
                        sql += "%"
                    End If
                    sql += TextBox2.Text.Trim & "%')"
                    wOK = True
                End If
            End If
        End If

エラーの文面みたら、単純な入力ミスによるエラーでした。
前回同様、Messageboxで検索結果の式を確認したら、Textbox2に何も反応していないので自分が入力した範囲が正常に動いていない可能性が高いです。
SQL　範囲指定で、Betweenが一番適していると思い早速打ち込んでみましたがうんともすんとも言いません。
サイトにあった　SELECT  *  FROM  商品表　WHERE  単価　BETWEEN　100　AND　1900　を参考にしましたが良く分かりません。