在VB中如何在代码中进行数据绑定？？？

Question

在VB中如何在代码中对Adodc进行数据绑定？？？
    Adodc1.ConnectionString = str
    Adodc1.RecordSource = "SELECT id AS 编号, name AS 姓名, memo AS 简介, re AS 备注 FROM student ORDER BY 编号"
    Set DataGrid1.DataSource = "Adodc1"
    Adodc1.Refresh
我是像这样做的，但是不行
望各位高手指点！！！

Answer 1

Set DataGrid1.DataSource = Adodc1

Answer 2

參考﹕Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub