У меня возникла ошибка при выполнении SQL-запроса с использованием метода parameters (дочерний список не может быть создан

---

Я получаю вызов ошибки "Дочерний список для клиентов полей не может быть создан". после выполнения запроса , особенно после изменения моих sql-запросов на параметры вместо запросов sql-инъекций, вот код

//////НОВИНКИ\\\\\\\

Извините за то , что не предоставил полную информацию, однако вот необходимые обновления: ошибка появляется только в том случае, если я использовал запрос клиента, который представляет собой использование оператора sql в текстовом поле под названием SQLText.Текст и он указывает на нижеприведенную строку

DataGridViewReports.DataMember = "Customers"

при отладке вот ценность sqlQry = "клиенты обновления установить шорткод = '0000', где (имя='заблокировать всю рекламу и объявления блок SupplierName=' - все поставщики и SupplierFeedbackDate='.... / .... / .....' И Supplier_Feedback='.....');"

чтобы быть точным : нет никаких ошибок вообще в случае, если я использовал запросы из флажков

Что я уже пробовал:

Private Sub btn_custom_query_Click(sender As Object, e As EventArgs) Handles btn_custom_query.Click
    Try
        If cnnOLEDB.State = ConnectionState.Open Then
            cnnOLEDB.Close()
        End If
        cnnOLEDB.ConnectionString = strConnectionString
        cnnOLEDB.Open()
        Dim sqlQry As String = SQLText.Text
        'Only add "WHERE" if at least one of the boxes is checked
        sqlQry &= IIf(SupplierName.Checked Or Supplier_Feedback.Checked Or Reason.Checked Or ServiceName.Checked Or DateAdded.Checked Or SupplierFeedbackDate.Checked, " WHERE ", "")
        'Only add the parameter for Supplier if Supplier box is checked
        If SupplierName.Checked Then
            If cbo_Supplier.Text = vbNullString Then
                sqlQry &= "SupplierName IS NOT NULL"
            Else
                sqlQry &= "SupplierName = @cbo_Supplier"
            End If
        End If
        If Supplier_Feedback.Checked Then
            If cbo_Feedback.Text = vbNullString Then
                'Only add "AND" if Supplier box was checked (i.e. we already have a filter)
                sqlQry &= IIf(SupplierName.Checked, " AND ", "")
                sqlQry &= "Supplier_Feedback IS NOT NULL"
            Else
                'Only add "AND" if Supplier box was checked (i.e. we already have a filter)
                sqlQry &= IIf(SupplierName.Checked, " AND ", "")
                sqlQry &= "Supplier_Feedback = @cbo_Feedback"
            End If
        End If
        If Reason.Checked Then
            If cbo_Reason.Text = vbNullString Then
                sqlQry &= IIf(SupplierName.Checked Or Supplier_Feedback.Checked, " AND ", "")
                sqlQry &= "Reason IS NOT NULL"
            Else
                'Only add " AND " if we have a previous filter in place already
                'I.e. one or both of Supplier and/or Action is checked
                sqlQry &= IIf(SupplierName.Checked Or Supplier_Feedback.Checked, " AND ", "")
                sqlQry &= "Reason = @cbo_Reason"
            End If
        End If
        If ServiceName.Checked Then
            If TXTServiceName.Text = vbNullString Then
                'I.e. one or both of Supplier and/or Action is checked
                sqlQry &= IIf(SupplierName.Checked Or Supplier_Feedback.Checked Or Reason.Checked, " AND ", "")
                sqlQry &= "ServiceName IS NOT NULL"
            Else
                'Only add " AND " if we have a previous filter in place already
                'I.e. one or both of Supplier and/or Action is checked
                sqlQry &= IIf(SupplierName.Checked Or Supplier_Feedback.Checked Or Reason.Checked, " AND ", "")
                sqlQry &= "ServiceName LIKE %@TXTServiceName%"
            End If
        End If
        If DateAdded.Checked Then
            'Only add " AND " if we have a previous filter in place already
            'I.e. one or both of Supplier and/or Action is checked
            sqlQry &= IIf(SupplierName.Checked Or Supplier_Feedback.Checked Or Reason.Checked Or ServiceName.Checked, " AND ", "")
            sqlQry &= "DateAdded Between @cbo_DateSent And @cbo_DateSentTo"
        End If
        If SupplierFeedbackDate.Checked Then
            'Only add " AND " if we have a previous filter in place already
            'I.e. one or both of Supplier and/or Action is checked
            sqlQry &= IIf(SupplierName.Checked Or Supplier_Feedback.Checked Or Reason.Checked Or ServiceName.Checked Or DateAdded.Checked, " AND ", "")
            sqlQry &= "SupplierFeedbackDate Between @cbo_FeedbackDate And @cbo_FeedbackDateTo"
        End If
        SQLText.Text = sqlQry

        Dim ds As DataSet = New DataSet
        Dim da As New SqlDataAdapter(sqlQRY, cnnOLEDB)
        Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)

        da.SelectCommand.Parameters.AddWithValue("@cbo_Supplier", cbo_Supplier.Text)
        da.SelectCommand.Parameters.AddWithValue("@cbo_Feedback", cbo_Feedback.Text)
        da.SelectCommand.Parameters.AddWithValue("@cbo_Reason", cbo_Reason.Text)
        da.SelectCommand.Parameters.AddWithValue("@TXTServiceName", TXTServiceName.Text)
        da.SelectCommand.Parameters.AddWithValue("@cbo_DateSent", cbo_DateSent.Value)
        da.SelectCommand.Parameters.AddWithValue("@cbo_DateSentTo", cbo_DateSentTo.Value)
        da.SelectCommand.Parameters.AddWithValue("@cbo_FeedbackDate", cbo_FeedbackDate.Value)
        da.SelectCommand.Parameters.AddWithValue("@cbo_FeedbackDateTo", cbo_FeedbackDateTo.Value)

        da.Fill(ds, "Customers")
        DataGridViewReports.DataSource = ds
        DataGridViewReports.DataMember = "Customers"
        lbl_RowCount.Text = DataGridViewReports.RowCount
    Catch ex As SqlException
        MessageBox.Show(ex.Message)
    End Try
    cnnOLEDB.Close()
End Sub

---