For i = 0 To 5
Text3.Text = i
DataGrid1.Row = i
Text1.Text = DataGrid1.Row
DataGrid1.Col = 0
DataGrid1.Text = "Y"
DataGrid1.Refresh
rst.Fields(0).Value = DataGrid1.Columns(0).Value
Next i
系统提示:实时错误'6160',数据访问错误 ,调试时,DataGrid1.Text = "Y"异常,写不进数据库,只有把后台数据库打开才可行,怎么处理