actualizar un MsFlexgrid

[choquito]

hola a todos...bueno les cuento que logre conectar un dataenviroment con instruccion sql en un msflexgrid con este codigo

Dim rs As New ADODB.Recordset

Private Sub Form_Load()
DataZaga.rsCmdclientes1.Open
DataZaga.rsCmdClientes.Open
Set rs.DataSource = DataZaga.rsCmdclientes1
configurar_grilla
Do While Not rs.EOF
Grid1.AddItem rs.Fields("COD_CLIENTE") & vbTab & rs.Fields("RAZON_SOCIAL")
rs.MoveNext
Loop
End Sub

cabe precisar que tengo un frm con cuadros de texto y estos esta conectados a la base de datos, bueno cuando ingresos datos y pongo guardar este no me aparece en mi grid, tengo que cerrar y volver a abrir el proyecto para que aparezca: como actualizo el grid1 o en dataenviroment
se que debo desconectar el dataenviroment y el grid y luego conectar nuevamente pero como,, estoy intentando con esto pero creo que falta algo

With DataZaga.rsCmdclientes1
If .State = adStateOpen Then
.Close
End If
If .State = 0 Then
.Open
End If
End With

agracedecere infinitamente al que me ayude