用代码帮定一个field到text，怎么错了？

Question

由于某种原因，我没有在“属性”窗口里设置adodc1的connectionstring属性和recordsource属性，所以text的datasouce里找不到adodc1，现在想用代码实现text1帮定任意field。现代码如下，失败，请问哪里错了阿？Private Sub Form_Load()
Adodc1.ConnectionString = "dsn=aaa"
Adodc1.RecordSource = "select * from bbb"
Text1.DataSource = Adodc1
Text1.DataField = ccc
End Sub

Answer 1

set Text1.DataSource = Adodc1