Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim iRow As Integer
    DoEvents
    Select Case Button.Key
    Case "Inserta"
         InsertaConcepto
    Case "Elimina"
        BorraConcepto (SCGrid1.CurrentRow)
    Case "Cancela"
        cancelaEdicion (SCGrid1.CurrentRow)
    End Select
End Sub
