Problema Con Datagrid

[fero]

DataEnvironment1 enlazado a una base access (en este caso una tabla con cuatro campos)
Comando del DataEnvironment1:
Command1.CommandText = Select * from nombre_tabla
Form con 4 textboxs donde se cargan los valores de un registro a agregar.
DataGrid1.DataSource=DataEnvironment1
DataGrid1.DataMember=Command1

Código en el botón agregar:
Private Sub Command1_Click()
'agregar item
Dim i As Integer

DataEnvironment1.rsCommand1.AddNew

For i = 0 To 3
DataEnvironment1.rsCommand1.Fields(i) = Form1.Text1(i).Text
Next i

DataEnvironment1.rsCommand1.Update

End Sub

Al agregar el registro el datagrid se actualiza solo.