Динамическое подключение RichTextBox к объекту Data

[Ducis]

Необходимо подключать RichTextBox к объекту Data во время выполнения программы. В случае с ADO контроллом проходит
Set RichTextBox1.DataSource = NameADOControll
С объектом Data такое не проходит, не проходит и
RichTextBox1.DataSource = Data1
В первом случае говорит, что метод ему не знаком, во втором - ошибка типов.
Пока выхожу из положения так:
задаю RichTextBox.DataSource = Data1 во время разработки, а в прогу вставляю:
With RichTextBox1
.DataField = NameField
.Refresh
End With
........
мой код
........
With RichTextBox1
.DataField = ""
.Refresh
End With
может можно более красиво?

[Ducis]

Я уже VB и песни попел и в бубен постучал, а подключать упорно не хочет. Не могу взять в толк, чем подключение во время разработки отличается от программного. Это, видать, большой секрет МелкоМягких.
Я уже и перечисление св-в в тексте модуля формы смотрел, там:
Begin RichTextLib.RichTextBox RichTextBox1
DataSource = "Data1"
.....
End
Так писал (в кавычках), тоже ругается.