Textbox, Datasource, UserControls...

jchangk
19 de Noviembre del 2003
Tengo creado un control OCX, que contiene una caja de texto que permite ingresar sólo numeros, sólo caracteres, etc..., ahora deseo que este se pueda enlazar a un campo de una Base de Datos (Access), para lo cual necesito usar la propiedad Datasource, sin embargo al hacerlo, este no hace nada:
.....

Public Property Get DataSource() As DataSource
Set DataSource = m_DataSource
End Property

Public Property Set DataSource(ByVal New_DataSource As DataSource)
Set m_DataSource = New_DataSource
PropertyChanged "DataSource"
End Property

Public Property Get DataField() As String
DataField = m_DataField
End Property

Public Property Let DataField(ByVal New_DataField As String)
m_DataField = New_DataField
PropertyChanged "DataField"
End Property

NOTA: En propiedades avanzadas del TextBox, ya active la casilla Property is Databound, y la correspondiente a DataField

.......

*** en el Form ***

dim rsData1 as ADODB.Recordset

* donde rsData1 es un recordset valido

Set Text1.Datasource = rsData1

Text1.DataField = "Campo1"


Al ejecutar el form, no obtengo error, pero en la caja de texto no aparece nada, sin embargo el recordset tiene datos...

Agradecería mucho si alguien me puede ayudar....