problemas con dataview

[cazadorite]

hola tengo un problema cargo un form con un un datagridview uso dataset entonces hago un filtro con el dataview filtra bien esta ahi perfecto salgo del form y vuelvo a entrar y el datagrid no carga devuelta el listado completo queda en el ultimo cambio del filtro del dataview y estoy usando la misma funcion de cargar la grilla. osea tendria que cargar normal todo pero sale filtrado por el ultimo filtro que le aplique a la grilla.?? que puede ser


Lenguaje: vbnet
Private Sub cargar_columnas()
With dgvrep

.AutoGenerateColumns = False
.Columns.Clear()
.DataSource = ds.Tables("repuestos")

.Columns.Add("codrepuesto", "Codigo")
.Columns.Add("descripcion", "Descripcion")
.Columns.Add("rubro", "Rubro")
.Columns.Add("costo", "Costo Unitario")
.Columns.Add("porc", "Porcentaje de Ganancia")
.Columns.Add("pv", "Lista")
.Columns.Add("pro", "Proveedor")
.Columns.Add("stock_actual", "Existencia")
.Columns.Add("stock_minimo", "Stock Minimo")
.Columns.Add("fecha_inicio_aplicacion", "Desde")
.Columns.Add("fecha_fin_aplicacion", "Hasta")
.Columns.Add("CODmarca_repuesto", "Marca de Repuesto")
.Columns.Add("marca", "Marca de Auto")
.Columns.Add("modelo", "Modelo de Auto")




.Columns("codrepuesto").DataPropertyName = "codrepuesto"
.Columns("descripcion").DataPropertyName = "descripcion"
.Columns("fecha_fin_aplicacion").DataPropertyName = "fecha_fin_aplicacion"
.Columns("fecha_inicio_aplicacion").DataPropertyNa me = "fecha_inicio_aplicacion"
.Columns("CODmarca_repuesto").DataPropertyName = "marca_repuesto"
.Columns("modelo").DataPropertyName = "modelo"
.Columns("stock_actual").DataPropertyName = "stock_actual"
.Columns("stock_minimo").DataPropertyName = "stock_minimo"
.Columns("costo").DataPropertyName = "costo"
.Columns("rubro").DataPropertyName = "rubro"
.Columns("marca").DataPropertyName = "marca"
.Columns("pv").DataPropertyName = "precio_venta"
.Columns("porc").DataPropertyName = "porcentaje_ganancia"
.Columns("pro").DataPropertyName = "proveedor"


End With

End Sub

el codigo del filtro esta abreviado pero en si puse lo que importa


Lenguaje: vbnet
Private Sub filtro_repuesto(ByVal sender As System.Object)

Dim criterio As String = "" '
Dim negr As New clsnegocio_repuesto


Vista1 = ds.Tables("repuestos").DefaultView
Vista1.RowFilter = criterio
Vista1.RowStateFilter = DataViewRowState.CurrentRows

dgvrep.DataSource = Vista1

Catch ex As Exception
MessageBox.Show(ex.Message, "Atencion", MessageBoxButtons.OK, MessageBoxIcon.Warning)


End Try