VB+Access：datagird+adodc的问题

我想做的是Datagird上显示的数据，我单击任何一行，就把值赋予text
代码如下：
==================================================
Private Sub Form_Load()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset

cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.171\db\test.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from class", cn, 3, 2
Set DataGrid1.DataSource = rs
End Sub

=====这是界面加载时，读取内容，class里面有name ,age,sex字段=========

====================================================

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

Text1.Text = DataGrid1.Text
Text2.Text = Adodc1.Recordset.Fields(0)

End Sub

===============这是datagrid上单击各行时，将其中一行中的值赋予TEXT2==

提示错误为

VB+Access vb连access问题 VB访问Access问题 VB 与ACCESS VB连ACCESS VB与Access VB连接Access数据库 VB 创建Access数据库 VB+ACCESS的问题 vb access 添加数据