Как обновить DataGridView

[Шалимов Геннадий]

Есть база Access я в нее добовляю запись но неммогу оновть DataGridView
Вот код ПОМОГИТЕ

Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'displays user ids and passwords in datagrid
Dim theDataSet As DataSet
Dim myOleDbDataAdapter As OleDb.OleDbDataAdapter
Dim theOleDbCommand As OleDb.OleDbCommand
theOleDbCommand = New OleDb.OleDbCommand("SELECT [КОД],[НАЗВАН],[Сокращенное наименование] FROM U", New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\rez_ank\new_ank.mdb"))
myOleDbDataAdapter = New OleDb.OleDbDataAdapter(theOleDbCommand)
theDataSet = New DataSet
theOleDbCommand.Connection.Open()
myOleDbDataAdapter.Fill(theDataSet)
theOleDbCommand.Connection.Close()
Grid.DataSource = theDataSet.Tables(0).DefaultView

Catch ex As Exception
MsgBox(ex.GetType.FullName & " " & ex.Message)
End Try
End Sub

Private Sub Grid_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Grid.KeyUp
If e.KeyData = Keys.Up Or e.KeyData = Keys.Down Then
Dim BufStr As String = TryCast(Grid.Rows(Grid.CurrentCellAddress.Y).Cells("НАЗВАН").Value, String)
Label1.Text = BufStr
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try

Dim myConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\rez_ank\new_ank.mdb")
Dim myCommand As New OleDb.OleDbCommand("INSERT INTO U ([НАЗВАН]) VALUES ('Тест')", myConnection)

myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
myConnection.Close()
Catch ex As Exception
MsgBox(ex.GetType.FullName & " " & ex.Message)
End Try
End Sub

End Class

[HandKot]

если не ошибаюсь, надо после вставки данных делать myOleDbDataAdapter.Fill(theDataSet)