' riempimento tabella categoriaStrumento
    Public Sub riempiCategoriaStrumento(ByVal categoria As String)
        dgvCategoriaStrumento.Rows.Clear()
        sql = "SELECT * FROM categoriastrumento WHERE categoriastrumento_nome LIKE '%" & categoria & "%'"
        cmd = New OleDbCommand(sql, cn)
        dr = cmd.ExecuteReader()
        If dr.HasRows = True Then
            While dr.Read = True
                dgvCategoriaStrumento.Rows.Add(dr("categoriastrumento_id"), dr("categoriastrumento_nome"), dr("categoriastrumento_note"))
            End While
        End If
        lRisultatoCategoriaStrumento.Text = "Numero righe: " + dgvCategoriaStrumento.RowCount.ToString()
        'MsgBox("caricata lista cat strumento")
    End Sub