Public Class CNGeneral Dim objGeneral As New DAOGeneral Public Function ListaEmpresas() As DataTable Return objGeneral.ListaEmpresas End Function End Class