Visual Basic - desconectar el msflexgrid del dataenviroment

hola a todos...tengo una dificultad sucede q 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

el problema es que cuando ingreso datos en mi recordset este no me aparece en mi grid, tengo que cerrar y volver a abrir el proyecto la pregunta se 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