Volver a repintar formulario

[astrow25]

Hola tengo un formulario (1) que muestra los datos mediante una consulta, que llama a otro (2) para modificar el estado, y lo que quiero hacer es que desde el 2 actualice los datos del 1.

Es decir que si al modificar (2), no hay ningun dato que se cumpla en el (1), me vuelva a repintar los datos.

He intentado a hacerlo de la siguiente manera

En 1, llamada al 2.

Código:

  Dim oCambioEstado As New frmCambioEstado
        oCambioEstado.ShowDialog()

En el 2 para modificar los datos

Código:

Dim oPrincipal as new frmPrincipal
oPrincipal.oConexion = New MySqlConnection
oPrincipal.oConexion.ConnectionString = cadena_conexion
 'crear adaptador
oPrincipal.oDataAdapter = New MySqlDataAdapter("Select * from tabla1 where estado='AF' order by apellido1,apellido2,nombre desc", oConexion)
'Crear dataset
 oPrincipal.oDataSet = New DataSet
 oPrincipal.Open()
 'llenar con el adaptador el dataset
 oPrincipal.oDataAdapter.Fill(oPrincipal.oDataSet, "tabla1")
 oPrincipal.oConexion.Close()
 'establecer el indicador del registro
  'a mostrar de la tabla
 oPrincipal.iPosicionActual = 0
 oPrincipal.CargarDatos()
 oPrincipal.Update()
 Me.Close()