Visual Basic - actualizar dataenvironment

1º Hola y gracias por leerme:
Tengo 2 form. en uno un datagrid (con adodc) y en otro un mshflexgrid (con dataenvironment), yo selecciono una fila del datagrid y quiero que me la inserte en el mshflexgrid, eso ya esta, usando sql....pero: el mshflexgrid no m actualiza, para q yo pueda visualizar la nueva fila insertada en el mshflexgrid, tengo q cerrar la aplicacion y volver a abrirla, es decir actualizarla. Tendria que cerrarlo y volverlo a abrir ¿podrian decirme como se hace?
Muchisimas gracias.

Karole.
[email protected]

Despues de usarla, usa el metodo

unload dataenvironment

con esto ce cierra y la aplicacion tiene que vover a abrirla, la proxima que deses usarla.

vale, entonces por ejemplo en el form_gotfocus debere de volver a abrir el dataenvironment para que ya me aparezca actualizado no???? y ezo como eeeeeeee?????

A continuacion el codigo que elimina una actividad (muy similar al q añade 1 actividad=:

Private Sub eliminar_actividad()
Dim id_esa
Dim id_act
Dim rs As New ADODB.Recordset
Dim conexion As New ADODB.Connection


'identifica las variables
id_esa = Text1
id_act = MSHFlexGrid1.Text


'añade un nuevo registro
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=empresas.mdb"
rs.Open "esa_objetivo", conexion


If MsgBox("¿Desea eliminar la actividad " & MSHFlexGrid1.Text _
& " ?", vbYesNo) = vbYes Then
conexion.Execute "delete * from esa_objetivo where id=" & id_esa & " and id_sector_f='" & id_act & "'"
End If
'actualizacion la tabla de actividades por empresas
'vaciamos el valor de la propiedad
Set MSHFlexGrid1.DataSource = Nothing
'se actualiza el conjunto de registros consultando de nuevo b.d.
rs.Requery
'de nuevo se asigna el valor a la propiedad
Set MSHFlexGrid1.DataSource = DataEnvironment1
'se actualiza el objeto
MSHFlexGrid1.Refresh

End Sub

Bien pos sigue sin actualizar HeLPP HELP

Quedaria algo asi, si no prueba cambiendo la ubicacion del unload.

Set MSHFlexGrid1.DataSource = DataEnvironment1
'se actualiza el objeto
MSHFlexGrid1.Refresh

Unload DataEnvironment1 ' esto es lo que cierra

End Sub

Muchiiiiiiiiiiiiiiiiiiiiiiiiiiiiiisimas gracias. Va estupendament, este seria del codigo final:
Private Sub eliminar_actividad()
Dim id_esa
Dim id_act
Dim rs As New ADODB.Recordset
Dim conexion As New ADODB.Connection


'identifica las variables
id_esa = Text1
id_act = MSHFlexGrid1.Text


'añade un nuevo registro
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=empresas.mdb"
rs.Open "esa_objetivo", conexion


If MsgBox("¿Desea eliminar la actividad " & MSHFlexGrid1.Text _
& " ?", vbYesNo) = vbYes Then
conexion.Execute "delete * from esa_objetivo where id=" & id_esa & " and id_sector_f='" & id_act & "'"
End If
'actualización la tabla de actividades por empresas
'vaciamos el valor de la propiedad
Set MSHFlexGrid1.DataSource = Nothing
'se actualiza el conjunto de registros consultando de nuevo b.d.
rs.Requery
Unload DataEnvironment1
'de nuevo se asigna el valor a la propiedad
Set MSHFlexGrid1.DataSource = DataEnvironment1
'se actualiza el objeto
MSHFlexGrid1.Refresh

End Sub

Otra vez, gracias y un Besazo