大批量插入数据出现的问题？

Question

在循环体内插入Application.Doevents()来处理消息

Answer 1

Dim s As String
        Dim i As Int32
        Dim Dr As OleDbDataAdapter
        s = "insert into table_fu values('bccc', 33, 'ffaa')"
        Try
            conn.Open()
            For i = 1 To 1000
                Dim cmd As New OleDbCommand(s, conn)
                Dr = cmd.ExecuteScalar()
                DataGrid1.DataSource = Dr
                DataGrid1.Update()
            Next i
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try
  End Sub
我将数据插入了数据库中，可是在datagrid上为什么不显示呢？

Answer 2

我用的OLEDB 
我在代码中点击时，datagrid中没有绑定的方法阿
DataGrid1.Update()

Answer 3

你这样的代码P8也受不了阿
一般来说，大批量更新数据时，都会避免刷新UI界面，你倒是很凶残阿。