actualizar un datagridview

Estimados

tengo este procedimieto para presentar una data al usuario en un datagridviw, pero cuando cambio una condicion la data del datagridview no se actualiza, he probado de mil formas y nada, se conserva la data de la primera vez, he revisado el datatable y ahi si se esta la data correcta con como se requiere, lo cual no es igual al datagridview, alguien podria decirme que esta mal

Gracias

Sub Carga_Lista_Requerimientos()
        Dim cSql1 As String = ""
        Dim cSql2 As String = ""
        Dim cSql3 As String = ""
        Dim cSql4 As String = ""
        Dim cSql5 As String = ""
        Dim DT As DataTable
        '
        Try
            'dsRequerimiento.Clear()
            DT = dsRequerimiento.Tables("ASIGNACIONES")
            If dsRequerimiento.Relations.Contains("mi_Relacion") Then
                'dsRequerimiento.Relations.Clear()
                dsRequerimiento.Relations.Remove("mi_Relacion")
            End If

            If dsRequerimiento.Tables.Contains("ASIGNACIONES") Then
                'dsRequerimiento.Tables("ASIGNACIONES").Clear()
                dsRequerimiento.Tables("ASIGNACIONES").Constraints.Remove("MI_RELACION")
                dsRequerimiento.Tables.Remove("ASIGNACIONES")
            End If

            If dsRequerimiento.Tables.Contains("REQUERIMIENTOS") Then
                'dsRequerimiento.Tables("REQUERIMIENTOS").Clear()
                dsRequerimiento.Tables.Remove("REQUERIMIENTOS")
            End If

            If dsRequerimiento.Tables.Contains("TIPO_DOCUMENTO") Then
                dsRequerimiento.Tables("TIPO_DOCUMENTO").Clear()
            End If
            '
            cSql1 = " SELECT rtrim(IDITEM) as iditem ,RTRIM( NOMBRE) AS NOMBRE FROM rrhh.dbo.SYS_DETALLEGENERAL where IDGENERAL = 'X01'  AND NOT SIGNO=  ' ' ORDER BY IDITEM "
            RunSqlds(cSql1, "TIPO_DOCUMENTO", dsRequerimiento)
            cmbDocumento.DataSource = dsRequerimiento.Tables("TIPO_DOCUMENTO").DefaultView 'agregarlo al datagrid
            cmbDocumento.DisplayMember = "Nombre"
            cmbDocumento.ValueMember = "IDITEM"
            cmbDocumento.SelectedIndex = 0
            '      
            Dim cCondicion As String

            cCondicion = ""
            If radPendiente.Checked Then
                cCondicion = " AND R.PENDIENTE > 0 "
            End If
            If radCompletado.Checked Then
                cCondicion = " AND R.PENDIENTE <= 0 "
            End If

            If radTodos.Checked Then
                cCondicion = ""
            End If
            '           Me.Controls("dgvRequerimientos").
            '           Crear_DatagridView(dgvRequerimientos, 11, 55, 882, 312, 0, 9)

            ' DT = CType(Me.dgvRequerimientos.DataSource, DataTable)
            ' DT.Rows.Clear()

            If dgvRequerimientos.RowCount > 1 Then
                dgvRequerimientos.AutoGenerateColumns = False
                dgvRequerimientos.DataSource = Nothing
                dgvRequerimientos.Rows.Clear()
            End If
            'dgvRequerimientos.DataMember = Nothing

            'dgvAsignacion.Refresh()
            dgvRequerimientos.Refresh()
            'dgvRequerimientos.Rows.Clear()

            cSql1 = " SELECT IDREQUERIMIENTO,EMPRESA,SECCION,FECHA,CARGO,CANTIDAD,PENDIENTE, VACANTE_DEJADO,R.IMAGEN,r.idempresa,R.idseccion,Condicion FROM rrhh.requerimiento.V_RQSL_REQUERIMIENTOS R"

            cSql3 = " WHERE r.idestado <>'04' and S.USUARIO='" & cgUsuario & "' AND NOT S.IDEMPRESA IS NULL  " & cCondicion & " ORDER BY FECHA desc,EMPRESA"
            cSql4 = ""
            RunSqlds(cSql1 & cSql2 & cSql3 & cSql4, "REQUERIMIENTOS", dsRequerimiento)

            dgvRequerimientos.DataSource = dsRequerimiento
            dgvRequerimientos.DataMember = "REQUERIMIENTOS"
            dgvRequerimientos.SelectionMode = DataGridViewSelectionMode.FullRowSelect
            '
            With dgvRequerimientos
                .RowsDefaultCellStyle.BackColor = Color.Bisque
                .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue 'Color.Beige
                .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                .Columns(0).DefaultCellStyle.Font = New System.Drawing.Font("Calibri", 7.75F)
            End With

            dgvRequerimientos.Columns("imagen").Visible = False

            cSql1 = " select a.*  from rrhh.requerimiento.V_RQSL_ASIGNACION a"

            cSql5 = "	WHERE  r.idestado <>'04' AND S.uSUARIO ='" & cgUsuario & "' AND NOT S.IDEMPRESA IS NULL ) " & cCondicion

            RunSqlds(cSql1 & cSql2 & cSql3 & cSql4 & cSql5, "ASIGNACIONES", dsRequerimiento)

            ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

            With dsRequerimiento
                .Relations.Add("mi_Relacion", _
                              .Tables("REQUERIMIENTOS").Columns(campo_Relacionado), _
                              .Tables("ASIGNACIONES").Columns(campo_Relacionado))
            End With

            ' Establecer el DataSource y el DataMember para el DataGridview Detalle
            With dgvAsignacion
                .DataSource = dsRequerimiento
                .DataMember = "Requerimientos.mi_Relacion"
                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            End With

            Call FORMATO_Asignacion()
            lDgvRequerimientoCompleto = True
            '  
        Catch ex As Exception
            MsgBox("Se ha producido el siguiente error : " + ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
        End Try
        dgvRequerimientos.Refresh()
        Me.txtTotalRequerimientos.Text = dgvRequerimientos.RowCount.ToString.Trim()
    End Sub