VB.NET 中DataGridView不能即时显示数据问题。。。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '添加按钮
If Button1.Text = "添加" Then
objConn.Open()

Dim data As New OleDbParameter("@data", OleDbType.Date, 10)
Dim thing As New OleDbParameter("@thing", OleDbType.Char, 30)
Dim money As New OleDbParameter("@money", OleDbType.Integer, 10)
Dim record As New OleDbParameter("@record", OleDbType.Char, 30)

Dim strin As String = "Insert into ZChu(日期,项目,金额,备注)" & "values(@data,@thing,@money,@record)"
Dim objCmd As New OleDbCommand(strin, objConn)

data.Value = DateTimePicker1.Text
thing.Value = TextBox2.Text
money.Value = TextBox3.Text
record.Value = TextBox4.Text

objCmd.Parameters.Add(data)
objCmd.Parameters.Add(thing)
objCmd.Parameters.Add(money)
objCmd.Parameters.Add(record)

objCmd.ExecuteNonQuery()
objConn.Close()

Dim strSql = "Select * from ZChu"
objAdap.SelectCommand = New OleDbCommand(strSql, objConn)
'objDSet.Clear()
'objAdap.Fill(objDSet, "ZChu")
MsgBox("添加成功！")
Else
DateTimePicker1.Text = "" '清空文本框
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Button1.Text = "添加" '改变按钮提示
End If
End Sub

以上代码在输入各项后，不能在DataGridView中即使显示，请问是哪里出错了。。。

[解决办法]
最好的做法是，你添加数据，往DataGridView绑定的dataset里添加，更新dataset到数据库，DataGridView数据会自动刷新