Cidgo de creación de facturas en viasul basic

Pues mira para eliminar una factura no es correcto mejor cancelala simplemente agrega un campo y pones por ejemplo 1 o 0 (1=cancelada, 0=Activa) ahora para los productos te recomiendo usar un datagrid primero una forma con 3 cajas de texto (para descripción, cantidad, unidad, Precio unitario), y un datagrid (proyecto->Componentes->microsoft DataGrid) (no voy a usar botones ya que voy a usar teclas F2, F3, etc. ya es es más rapido para una cajera usar teclas que usar el ratón).
Declaramos (usando ADO proyecto->referencias->Microsoft Active Data Objects 2.xx):
Cn as new adodb.
Rstemp as new adodb. Recordset
Contador as integer
En el Load de la forma:
cn.open "Tu cadena de conexion"
Crea_Tabla
La rutina Crea_tabla:
Public Sub Crea_Tabla()
rstemp.Fields.Append "clave", adSingle
Rstemp. Fields. Append "Cantidad", adSingle
rstemp. Fields. Append "Descripción", adChar, 60
rstemp. Fields.Append "P.U.", adSingle
rstemp. Fields. Append "Importe", adDouble
rstemp. Open
Set DataGrid1.DataSource = rstemp
'Lo que sigue es para que no modifiquen nada en el grid mas que cantidad y clave
DataGrid1.Columns(2).Locked = True
DataGrid1.Columns(3).Locked = True
DataGrid1.Columns(4).Locked = True
DataGrid1.Columns(5).Locked = True
DataGrid1.Columns(6).Locked = True
End Sub
Mira es muy extenso el código mejor si tienes correo te mando un ejemplo. No olvides calificar