Datagrid1--实时错误'6153',至少一个参数没有被指定值

For i = 0 To 8
Text3.Text = i
DataGrid1.Row = i
Text1.Text = DataGrid1.Row
DataGrid1.Col = 0
DataGrid1.Text = "Y"
DataGrid1.Refresh
rst.Edit
rst.Fields(0).Value = DataGrid1.Columns(0).Value1
Next i
运行结果是 Text3.Text=1 , Text1.Text =0,第一个单元格值显示Y,
系统提示:实时错误'6153',至少一个参数没有被指定值
显然当i=1时后,DataGrid1.Row 就取不到值,网格所有查询出来的记录都可见,为什么会这样?还要怎样设置DataGrid1?与数据库有关系吗?