datagrid 数据不能编辑 ，请帮忙看下问题出在那

datagrid 数据不能编辑（修改、删除、更新、添加属性已经设为true）


 SQL = "Select * From " & "人员库"
Rs.Open SQL, conn
Set Rs = conn.Execute("select * from 人员库 where 单位名称='" & Combo1.Text & "'")
tttt:
Set DataGrid2.DataSource = Nothing
If Not Ry.EOF Then
   Ry.MoveFirst
   Do Until Ry.EOF
   Rs.MoveNext
   Loop

Set DataGrid2.DataSource = Rs  '显示符合条件单位科室列表
DataGrid2.Columns(0).Visible = False
end if