Bueno el formulario tiene el siguinte codigo:
Código vb:
Ver originalImports System.Data
imports System.Windows.Forms.CheckState
Imports EntidadNegocio
Imports LogicaNegocio
Public Partial Class listcategoria
Private ObjCategoriaEN As CategoriaEN
Private ObjCategoriaLN As CategoriaLN
Sub Button1Click(sender As Object, e As EventArgs)
ObjCategoriaEN=New CategoriaEN
ObjCategoriaLN=New CategoriaLN
ObjCategoriaEN.gnom_cat=Ltrim(Rtrim(txtbuscar.Text))
ObjCategoriaLN.buscar(ObjCategoriaEN)
dgwlistcategoria.DataSource=ObjCategoriaLN.buscar
End Sub
End Class