GridView en Gambas

Como dice la documentacion de gambas GridView es un control que permite mostrar datos en una tabla.
Aqui una imagen.

Aqui se muestran las propiedades del control

Aqui pongo algo de codigo para que al momento de abrir la ventana se carguen los datos en el GridView, desde una tabla Productos en este momento solo importa el funcionamiento  del GridView asi que dejamos de lado momentaneamente la conexion que ya esta implicita.

PUBLIC SUB Form_Open()

    DIM filP AS Integer ‘Contador de filas
    DIM colP AS Integer ‘Contador de columnas
    ‘resProductos es un objeto Resul para almacenar el resultado de la consulta
    ‘conex es un Objeto de tipo Connection para las conexion a BD en Gambas
    ‘El metodo Exec() ejecuta una sentencia SQL
    resProductos = conex.Exec(“select * from Productos”)
    ‘Ponemos el numero de columnas a dos
    gvProductos.Columns.Count = 2
    ‘Nro de filas de acuerdo a la cantidad de productos que tenemos en la BD
    gvProductos.Rows.Count = resProductos.Count
    ‘Asignamos la cabecera de la tabla
    gvProductos.Columns[0].Text = “Descripcion del Producto”
    gvProductos.Columns[0].Width = 375  
    gvProductos.Columns[1].Text = “Precio”
    gvProductos.Columns[1].Width = 50 
    ‘Jalamos los datos desde el Objeto Result resProductos hacia el GridView
    ‘Mientras hayan filas en el Result
    DO WHILE resProductos.Available
       gvProductos[filP, colP].Text = resProductos["descripcion"]
       colP = 1
       gvProductos[filP, colP].Text = “$ ” & resProductos["precio"]
       colP = 0
       filP = filP + 1
       ‘Pasamos a la siguiente fila del Objeto Result
       resProductos.MoveNext()
    LOOP

END

Ahora como hacemos para eliminar un producto del GridView si presionamos la tecla Suprimir

PUBLIC SUB gvProductos_KeyRelease()

   IF Key.Code = Key.Delete THEN ‘Comprobamos si la tecla es Suprimir
      IF gvProductos.Current = NULL THEN RETURN
      SELECT Message.Question(“Desea eliminar este producto”, “Si”, “No”, “Ayuda”)
         CASE 1
            TRY conex.Exec(“Delete from Productos where descripcion=&1″, gvProductos.Current.Text)
            IF ERROR THEN
               Message.Error(“Imposible borrar el registro”)
            ELSE
               gvProductos.Rows.Remove(gvProductos.Row)
            END IF
         CASE 2
         CASE 3
      END SELECT
   END IF

END