If TextBox1.Text.Length > 0 Then
            wOK = True
            If Radio1B.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 += " OR "
            Else
                sql += " WHERE "
            End If

            sql += " (生産者名 Like '"
            If Radio2B.Checked Then
                sql += "%"
            End If
            sql += TextBox2.Text.Trim & "%')"

            wOK = True
        End If

        If TextBox3.Text.Length > 0 Then
            If wOK = True Then
                sql += " OR "
            Else
                sql += " WHERE "
            End If

            sql += " (Rank Like '"
            If Radio3B.Checked Then
                sql += "%"
            End If
            sql += TextBox3.Text.Trim & "%')"
            wOK = True
        End If

        Dim da As New SqlDataAdapter(sql, cnstr)
        Try
            da.Fill(dt)
            DataGridView1.DataSource = dt 'DataGridview1にdtのデータを表示する
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
End Class

今回はあまり時間がなく少ししか手直し出来ませんでした。
それでも、anさん、仮面弁士さんの指摘通りに修正をしたら生産者番号以外でも条件を指定しての検索が出来ました。
有難うございました。
るきおさんのコードですが、すみません。作ってみたんですが良く分かりませんでした。

ここで疑問に思ったんですが、wOKやRadiobtnなどを使わずにTextboxのみでデータベースの複数条件の作ることは可能でしょうか？