Problema Con Datagrid

[fero]

NO. Por lo que veo en tu código estás usando un control data y no un dataenvironment, así que lo que puse antes no va. Tu código quedaría así:

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 '************ esto para qué


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

Data1.Refresh
DataGrid1.REfresh ' o como se llame el data grid

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

'Data1.Recordset.Close ******** esto no va ********


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

End Sub