Visual Basic - .Addnew

buenas, estoy haciendo un programa de facturacion y lo hago de esta forma, con un msflexgrid que guarde todos los datos cuando se agrega un producto y modifcandole todas sus propiedades graficas para que quede como una tabla, controles data y txt. 3 Botones, Nuevo Producto, agregar a la factura, y eliminar de la factura. Tambien con un comando al iniciar el programa el me borra tdos los datos de la base de dats que uso, para que quede limpio el flexgrid. El problema es este, que al tratar de agregar un producto con la base de datos vacia, el comando UpdateRecord no funciona, y quieor que alguien me explique que hago para estos casos, se que es con el .AddNew pero no se como. Gracias

Private Sub cmdAgregar_Click()

If txtCant = "" Then
MsgBox "Por favor introduce la Cantidad"
End If
If txtCodigo = "" Then
MsgBox "Por Favor introduce el Codigo"
End If

Data5.UpdateRecord
Data5.Refresh
MSFlexGrid1.Refresh
End Sub

LO QUE TIENES AHI REALMENTE NO FUNCIONA
DEBES INGRESAR UN REGISTRO ANTES DE GUARDAR Y ACTUALIZAR EL MSFLEXGRID
ALGO COMO ESTO

Private Sub cmdAgregar_Click()

If txtCant = "" Then
MsgBox "Por favor introduce la Cantidad"
End If
If txtCodigo = "" Then
MsgBox "Por Favor introduce el Codigo"
End If

DATA5.RECORDSET.ADDNEW
Data5.recordet("Codigo")= txtcodigo
Data5.recordet("Cantidad")= txtcant
'y asi sucesivamente por cada campo que necesites ingresar y al final si viene lo siguiente

Data5.UpdateRecord
Data5.Refresh
MSFlexGrid1.Refresh
End Sub