codice:
Private Sub PopolaComboBoxCategorie()
        Dim strSql As String

        strSql = "SELECT * FROM tblGenere Order by genere"

        Dim objDataAdapter As New OleDbDataAdapter(strSql, objConn)


        Dim objTable As New DataTable()

        objDataAdapter.Fill(objTable)

        cmbCategorie.DataSource = objTable
        cmbCategorie.DisplayMember = "Descrizione"
        cmbCategorie.ValueMember = "Codice"

End Sub