Refrescar un datagridView

[jetzona]

nop..., nop funciona... ya no se que creer? tendra solucion, se dice que lo unico sin solucion es la muerte??? sera este gridview la muerte????
de todas formas aca esta el codigo completo de la del mantenedor:
Public Class frmBodegas
Public run As String

Private Sub frmBodegas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
run = My.Forms.frmContactos.run
BodegasTableAdapter.FillByRutBodega(DBFox3DataSet2 .Bodegas, run)
Agregar.Enabled = False
TextBox1.Text = run
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub

Private Sub Agregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Agregar.Click
Me.DBFox3DataSet2.Bodegas.AddBodegasRow(TextBox1.T ext, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text)
Agregar.Enabled = False
Aceptar.Enabled = False
End Sub

Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
Me.BodegasBindingSource.RemoveAt(Me.BodegasBinding Source.Position)
Me.Validate()
Me.BodegasBindingSource.EndEdit()
Me.BodegasTableAdapter.Update(Me.DBFox3DataSet2.Bo degas)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
Agregar.Enabled = False
Aceptar.Enabled = False
End Sub

Private Sub Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aceptar.Click

If Agregar.Enabled = False Then
DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).rut_contacto = TextBox1.Text
DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).nombre = TextBox2.Text
DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).direccion = TextBox3.Text
DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).comuna = TextBox4.Text
DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).ciudad = TextBox5.Text
DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).pais = TextBox6.Text
DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).fono1 = TextBox7.Text
DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).fono2 = TextBox8.Text
End If
Me.Validate()
Me.BodegasBindingSource.EndEdit()
Me.BodegasTableAdapter.Update(Me.DBFox3DataSet2.Bo degas)
'My.Forms.frmContactos.BodegasBindingSource.EndEdi t()
'My.Forms.frmContactos.BodegasTableAdapter.Update( Me.DBFox3DataSet2.Bodegas)
Me.Close()
My.Forms.frmContactos.BodegasDataGridView.Refresh( )
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Aceptar.Enabled = True
TextBox1.Text = DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).rut_contacto
TextBox2.Text = DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).nombre
TextBox3.Text = DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).direccion
TextBox4.Text = DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).comuna
TextBox5.Text = DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).ciudad
TextBox6.Text = DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).pais
TextBox7.Text = DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).fono1
TextBox8.Text = DBFox3DataSet2.Bodegas(BodegasBindingSource.Positi on).fono2
End Sub
Private Sub Cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancelar.Click
Me.Validate()
Me.BodegasBindingSource.EndEdit()
Me.BodegasTableAdapter.Update(Me.DBFox3DataSet2.Bo degas)
'My.Forms.frmContactos.BodegasTableAdapter.Update( Me.DBFox3DataSet2.Bodegas)
'My.Forms.frmContactos.BodegasDataGridView.Refresh ()
Me.Close()
My.Forms.frmContactos.BodegasDataGridView.Refresh( )

End Sub
Private Sub TextBox2_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseClick
If TextBox2.Text = "" Then
Agregar.Enabled = True
End If
End Sub

End Class