VB使用ADODB操作DataGrid1出错

Dim sql As String

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & app_path & "baobei.mdb" & ";Persist Security Info=False"
sql = "select * from baobeishuju where " & Combo1.Text & " Like '%" & Text1.Text & "%'"
'MsgBox sql
Set rs = New ADODB.Recordset

'sql语句 核心,根据目的不同 语法也不一样
Set rs = cn.Execute(sql) '执行语句

If Not rs.EOF Then '如果存在记录
Text2.Text = rs.Fields(0)
Text3.Text = rs.Fields(3)
Text4.Text = rs.Fields(4)
Text5.Text = rs.Fields(1)
Text6.Text = rs.Fields(2)
End If
Set DataGrid1.DataSource = rs.DataSource
在最后这里报错。。。要怎么改哦
还有DataGrid1的点击事件怎么写哦

Set DataGrid1.DataSource = rs.DataSource

提示“行集合不能作为标签”

Private Sub DataGrid1_DblClick() '双击某行

Form5.Show

Form5.Label2.Caption = DataGrid1.Columns("产品编号").Text

Form5.Label4.Caption = DataGrid1.Columns("测试时间").Text

Form5.Label6.Caption = DataGrid1.Columns("测试人员").Text

Form5.Text8.Text = DataGrid1.Columns("通讯RS232").Text

Form5.Text9.Text = DataGrid1.Columns("通讯RS485").Text

Form5.Text7.Text = DataGrid1.Columns("网口NET").Text

Form5.Text11.Text = DataGrid1.Columns("通讯ZGB").Text

Form5.Text10.Text = DataGrid1.Columns("通讯CAN").Text

Form5.Text23.Text = DataGrid1.Columns("FLASH").Text

Form5.Text25.Text = DataGrid1.Columns("铁电").Text

Form5.Text26.Text = DataGrid1.Columns("E2ROM").Text这是例子  你看下

你rs.fields(0)，re.fields(1)。。。等后面少了value吧，应该是 text2.text=rs.fields(0).value text3.text=rs.fields(3).value 。。。。。