实时异常'7005':行设置不可用

实时错误'7005':行设置不可用
源代码如下：
Private Sub DataGrid1_Click()
  If AdoData.State > 0 Then AdoData.Close
  DataGrid1.Col = 1
  Text6.Text = DataGrid1.Text
  AdoData.Open "SELECT* FROM SFlens WHERE sn='" & Text6.Text & "'", db, adOpenStatic, adLockOptimistic
  Combo1.Text = AdoData.Fields("index1")
  Combo2.Text = AdoData.Fields("sz")
  Combo3.Text = AdoData.Fields("base")
  Combo4.Text = AdoData.Fields("type")
  Combo5.Text = AdoData.Fields("add")
  Combo6.Text = AdoData.Fields("brl")
  Combo7.Text = AdoData.Fields("dim")
  Text1.Text = AdoData.Fields("num")
  Text2.Text = AdoData.Fields("supplier")
  Text3.Text = AdoData.Fields("tel")
  Text4.Text = AdoData.Fields("address")
  Text5.Text = AdoData.Fields("price")
End Sub

在调试的时候，鼠标点选DataGrid1的某一行时，出现 实时错误‘7005’：行设置不能使用提示，怎么回事啊？

[解决办法]
提示错误后 鼠标移动到各个属性 上 vb会提醒 哪个 有正确值 哪个 没有 来判断错误在哪里 也可以在 立即窗口 通过 ？对象.属性 输出结果