Lo que haria yo, seria esto:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call BD()
Dim ds As New DataSet
Dim sel As String
sel = "Select * From Tabla1"
Dim adapterrrs As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Fill(ds)
DataGrid1.DataSource = ds.Tables(0)
conexion.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call BD()
Dim ds As New DataSet
Dim sel As String
sel = "INSERT INTO Tabla1 (cedula,nombre,apellido,direccion,edad) " & "values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
Dim adapterrrs As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Update(ds)


ds.reset
sel = "Select * From Tabla1"
Dim adapterrrss As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Fill(ds)

DataGrid1.DataSource = ds.Tables("Tabla1")
conexion.close

End Sub

No se si sea lo mas correcto pero creo que debe trabajar.
Saludos.

__________________
La imaginacion es mas importante que el conocimiento...

Patricio Nerio