Problema Con Datagrid

[luisXP]

ES DECIR, FERO, DONDE DE COLOCAR EL COMANDO Q ME DICES DEL DATENVIRONMENT? AGREGUE LO QUE ME ENVIASTE AL BOTON QUE YO COLOCO COMO GUARDAR, TE NVIO EL CODIGO:

Private Sub Command1_Click()
Dim z
Dim i As Integer
Dim X As Currency
z = Label6.Caption
X = Text2.Text

X = 0
X = Val(Text2.Text)
Data1.Recordset.MoveLast


Data1.Recordset.AddNew
Data1.Recordset.Fields("cantidad") = (Text2.Text)
Data1.Recordset.Fields("cantidad") = X
Data1.Recordset.Fields("descripcion") = UCase(Text3.Text)
Data1.Recordset.Fields("serial") = UCase(Text4.Text)
Data1.Recordset.Fields("modelo") = UCase(Text6.Text)
Data1.Recordset.Fields("fecha_ingr") = UCase(Text5.Text)
Data1.Recordset.Fields("serial_int") = UCase(Text1.Text)

Data1.Recordset.Fields("codigo") = Label6.Caption
Data1.Recordset.Fields("codigo") = z

Data1.Recordset.Update

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

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Label6.Caption = ""

Data1.Recordset.Close


Frame1.Enabled = False
Command1.Enabled = False
Command3.Visible = True
Command4.Enabled = False

End Sub

AHORA, ESTO ME DA ERROR POR NO RECONOCER EL rsCommand1....

y ahora q tengo q hacer?