Ahi va el procedimiento:
''' <summary>
''' Metodo utilizado para enlazar el control a un origen de datos
''' <para>dt: Origen de datos</para>
''' <para >Propiedad: Propiedad a la que se le asignará el enlace</para>
''' <para>Campo_Enlace; Campo de la tabla a la que se enlazará el objeto</para>
''' </summary>
''' <remarks></remarks>
<Description("Metodo utilizado para establecer un enlace de la base de datos con este control")> _
Public Sub AddBinding(ByVal dt As DataTable, ByVal Propiedad As String, ByVal Campo_Enlace As String)
Me.txtCodigo.DataBindings.Add("Text", dt, Campo_Enlace)
End Sub
Pero por gusto ....
no funca.... y hasta ahorita ya no se me ocurre nada.