Private Sub bStrumentoSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bStrumentoSalva.Click
        cn.open()
        sql = "INSERT INTO categoriastrumento (categoriastrumento_nome,categoriastrumento_note) VALUES ('" & tbStrumentoNome.Text & "','" & tbStrumentoNote.Text & "')"
        cmd = New OleDbCommand(sql, cn)
        dr = cmd.ExecuteReader()
        cn.close()
        tbStrumentoNome.Text = ""
        tbStrumentoNote.Text = ""
        wDesktop.riempiCategoriaStrumento("")
        Me.Close()
    End Sub