si lo depure, el error ocurre al cargar los valores al control textbox
Cita:
dim empresa as EMPRESA
Sub Carga()
Try
Textbox1.text = empresa._Valor1 (AQUI OCURRE EL ERROR)
Textbox2.text = empresa._Valor2
Textbox3.text = empresa._Valo3
Catch ex As Exception
End Try
End Sub