Visual Basic.NET - No se me actualiza tabla SQL desde un dataset.

Private Sub Viejas()

    Dim Configuracion_conexion As String = "Data Source='" + Session("servidor") +

                                           "';Initial Catalog='solicitudes';Persist Security Info=True;User ID='solicitud';password='xxxxx'"

    'tomo el año de hoy

    Dim anoActual As Integer= Year(Today)

    Dim ano_solicitud As Integer=0

    Dim cadena As String = "Select datos.id, datos.fecha_en_la_que_se_necesita, datos.ejecutada, datos.cancelada  from datos"

    Dim Conexion1 As New SqlConnection(Configuracion_conexion)

    Dim adaptador1 As New SqlDataAdapter(cadena, Conexion1)

    Dim midataset1  As New DataSet()

    midataset1.Clear()

    adaptador1.Fill(midataset1, "datos")

   dim tr as Integer =midataset1.Tables("datos").Rows.Count

    If tr >= 1 Then

        'recorrro dataset buscando solicitudes cumplidas y del año anterior para borrarlas

             For i=1 to tr-1

                ano_solicitud = Year(CDate(midataset1.Tables("datos").Rows(i).item("Fecha_en_la_que_se_necesita")))

                If (ano_solicitud < anoActual And midataset1.Tables("datos").Rows(i).item("Ejecutada").trim = "Si")  _

                or (ano_solicitud < anoActual and midataset1.Tables("datos").Rows(i).item("Cancelada").trim = "Si") Then

                      midataset1.Tables("datos").Rows.RemoveAt(i)

                      tr  =midataset1.Tables("datos").Rows.Count -1

                      i=i-1

                End If

                If i = tr then Exit For

        Next

       (EN ESTE PUNTO PUEDO VERIFICAR QUE HAY FILAS QUE SE ME HAN BORRADO DEL DATASET PORQUE HA CUMPLIDO LA CONDICION)

       Dim cb As New SqlCommandBuilder(adaptador1)

        adaptador1.Update(midataset1, "datos")

        midataset1.AcceptChanges()

    End If

    Conexion1.Close()

End Sub

Private Sub Viejas()

        Dim MiConexion As New sqlConnection

        MiConexion.ConnectionString = "Data Source='" + Session("servidor")+

                                      "';Initial Catalog='solicitudes';Persist Security Info=True;User ID='solicitud';password='gases09*'"

        'tomo el año de hoy

        Dim anoActual As Integer= Year(Today)

        Dim ano_solicitud As Integer=0

        'variables para cargar tabla y conexion

        Dim UnaTabla As New DataTable

        dim  midatos as new DataSet

        Dim BS As New BindingSource

        Dim UnComando As New sqlCommand

        Dim MiCommandBuilder As New sqlCommandBuilder

        Dim Consulta As String = "Select *  from datos"

        dim MiAdapter = New sqlDataAdapter(Consulta, MiConexion)

        MiAdapter.Fill(UnaTabla)

        MiAdapter.Dispose()

        UnaTabla.TableName = "datos"

        MiDatos.Tables.Add(UnaTabla)

        BS.DataSource = UnaTabla

        dim tr as Integer =MiDatos.Tables("datos").Rows.Count()

        If tr >= 1 Then

            'recorrro dataset buscando solicitudes cumplidas y del año anterior para borrarlas

                 For i=0 to tr-1

                    ano_solicitud = Year(CDate(MiDatos.Tables("datos").Rows(i).item("Fecha_en_la_que_se_necesita")))

                    If (ano_solicitud < anoActual And MiDatos.Tables("datos").Rows(i).item("Ejecutada").trim = "Si")  _

                    or (ano_solicitud < anoActual and MiDatos.Tables("datos").Rows(i).item("Cancelada").trim = "Si") Then

                          MiDatos.Tables("datos").Rows.RemoveAt(I)

                          tr  =MiDatos.Tables("datos").Rows.Count()-1

                          i=i-1

                    End If

                    If i = tr then Exit For

            Next

(hasta aqui todo bien, reviso la cantidad de row que tiene Midatos y elimino las filas, pero...cuando hago el update me deja todo igual, es decir no me actualiza la tabla con los datos del dataset

            MiCommandBuilder.DataAdapter = MiAdapter

             MiAdapter.Update(MiDatos.Tables("datos"))

           MiDatos.AcceptChanges()

            MiAdapter.Dispose()

        End If

        MiConexion.Close()

End Sub