实时异常'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会提醒 哪个 有正确值 哪个 没有 来判断错误在哪里 也可以在 立即窗口 通过 ？对象.属性 输出结果 
[其他解释]
去掉  DataGrid1.Col = 1
[其他解释]

引用:

去掉 DataGrid1.Col = 1

去掉了还是提示这个错误

还有一个问题：而且如果去掉了，Text6.Text = DataGrid1.Text 应该也会有问题吧？那么多个数据，怎么付值呢？
[其他解释]
错误提示在哪一行
[其他解释]
Text6.Text = DataGrid1.Text
[其他解释]
sn在数据库中为文本格式
[其他解释]
Private Sub DataGrid2_Click()                       '选取订单
    If AdoSeekData.State > 0 Then AdoSeekData.Close
    If AdoDatazt.State > 0 Then AdoDatazt.Close
    DataGrid2.Col = 1
    g = DataGrid2.Text
    AdoSeekData.Open "SELECT* FROM RX WHERE JOB='" & g & "'", db, adOpenStatic, adLockOptimistic
    AdoDatazt.Open "SELECT* FROM data WHERE JOB='" & g & "'", db, adOpenStatic, adLockOptimistic
        Text1.Text = AdoSeekData.Fields("JOB")
       Text2.Text = AdoData.Fields("品牌")
       '省略了部分赋值语句
end sub

我在别的窗体里是这么用的，感觉都一样啊，为什么在别的窗体里没有问题，在这里有问题了？
[其他解释]
打断点 看 哪个属性出的错 然后调试

[其他解释]

引用:

打断点 看 哪个属性出的错 然后调试

额，我是新手，不清楚怎么打断点看属性……
[其他解释]
在立即窗口中输入：
? datagrid1.Text
回车后提示：
实时错误‘7005’：行设置不可用

鼠标移动到datagrid1.Text上面，也提示datagrid1.Text=<行设置不可用>
[其他解释]
datagrid1.text 属性 你是想获取什么 是 vb6控件的话 查看帮助 一般获取 一个属性的值的话有很多方法的
[其他解释]
我是想把datagrid1中（选中的行，第2列）的数据赋给text6.text

我正在把部分原材料入库，步骤如下：
1、输入要入库的材料信息，如：品名、尺寸、数量，单价等，然后点击入库
2、根据输入的数据，自动生成2个编号，一个是材料编号（假设为编号1，方便条码追踪，同时同类叠加，便于库存数量管理），另外一个是入库批次编号（假设为编号2，方便查询入库时间和按时间统计入库数据）
3、在表1中查询对应的编号1，看是否有记录。如果没有，则新建一个，并写入编号和数据，如果有，则在原来的基础上（如数量）累加
4、在表2中写入编号2的入库编号及相关数据
[其他解释]
dategrid1.textmark(dategrid1.selrow,2) 好像是这个你查下 msdn的属性白 我木有vb环境
[其他解释]
进行某些查询后，如果发现某一批参数写错了，还要进行修改，这时候我想在datagrid1中点击一下，把数据放回原来的录入框中进行修改
[其他解释]
哦，谢谢
[其他解释]
终于找到问题所在了。
我在查询的时候，用了Set DataGrid1.DataSource = AdoData

If AdoData.State > 0 Then AdoData.Close把我查询到的数据直接close了，所以错误了

还是很感谢zyg0，谢谢你的热心帮助