Bueno ya sale y ya borra pero aun tengo inconvenientes
Private Sub Command2_Click()
Command3.Enabled = True
item = item + 1
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.TextMatrix(0, 0) = "ITEM"
MSHFlexGrid1.ColWidth(0) = 1000
MSHFlexGrid1.TextMatrix(0, 1) = "CODIGO DE CONTROL DE CALIDAD"
MSHFlexGrid1.ColWidth(1) = 4000
MSHFlexGrid1.FixedRows = 1
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = item
MSHFlexGrid1.Text = Str(item)
MSHFlexGrid1.Col = 1
MSHFlexGrid1.Row = item
MSHFlexGrid1.Text = DataCombo3.Text
End Sub
**El inconveniente del agregar es que me agrega al final una linea en blanco lo demas todo ok
Private Sub Command3_Click()
If MSHFlexGrid1.Row = 0 Then
Command3.Enabled = False
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.FixedRows = 1
ElseIf MSHFlexGrid1.Rows >= 1 Then
With MSHFlexGrid1
If .Row < .Rows - 1 Then
For f = Row + 1 To Rows - 1
For c = 0 To 2
.TextMatrix(f - 1, c) = .TextMatrix(f, c)
Next c
Next f
End If
.Rows = .Rows - 1
End With
item = item - 1
End If
End Sub
**** El inconveniente del eliminar es k cuando solo queda un registro para elimar todavia sigue el boton activado lo intente deshabilitar pero aun tengo problemas
Si tienen aluna sugerencia para k funcione bien se los agredecere mucho
Desarrollo
Mostrar Mensajes
si me pueden explicar de una manera practica y con un ejemplo....
esos programas tienen sus propias opciones de como generar backups( respaldos) de los datos que manejes... porfa puedes ampliar tu pregunta o ser mas concreto en lo que buscas.. 
