DataGrid, no hay forma

[phamezeth]

He revisado todos los post, tips, tutoriales, libros...etc que tengan que ver con este elemento asi que si sere tonto que alguien lo demuestre por que no hay forma que pueda hacer un Refresh a este grid.Tengo este codigo....


Imports System.Data.OleDb
Imports System.Data.SqlClient


Public Class Form1

Inherits System.Windows.Forms.Form
Dim estadocheck2 As Integer
Public fila_p As Integer
Dim SQL As String = ""
Dim ADAPTADOR As OleDbDataAdapter
Dim DATOS As New Data.DataSet
Dim dt As DataTable = New DataTable("t_recados")
'Private dt As DataTable = New DataTable("t_recados")
Public Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=D:\db.accdb;Persist Security Info=False;")

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


Datos_c()
ADAPTADOR.Fill(dt)
Me.DataGridView1.DataSource = dt

'Dim Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=C:\rla_db.accdb;Persist Security Info=False;")

'DATOS = New DataSet()
'SQL = "SELECT * FROM t_recados;"
'ADAPTADOR = New OleDbDataAdapter(SQL, Con)
'ADAPTADOR.Fill(dt)

'hidden Rows id & id_usuario
'dt.Columns(0).ColumnMapping = MappingType.Hidden
'dt.Columns(4).ColumnMapping = MappingType.Hidden
'Me.DataGridView1.DataSource = dt

End Sub

Private Sub Datos_c()
Try
DATOS = New DataSet()
SQL = "SELECT * FROM t_recados;"
ADAPTADOR = New OleDbDataAdapter(SQL, Con)
'ADAPTADOR.Fill(dt)
'Me.DataGridView1.DataSource = dt
'hidden Rows id & id_usuario
'dt.Columns(0).ColumnMapping = MappingType.Hidden
' dt.Columns(4).ColumnMapping = MappingType.Hidden
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub



Public Function EstadoCheck(ByVal filaposicion As Integer) As Boolean
fila_p = filaposicion

Return Me.DataGridView1.Rows(filaposicion).Cells("check") .Value

End Function

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

If e.ColumnIndex = Me.DataGridView1.Columns.Item("check").Index Then
Dim chkCell As DataGridViewCheckBoxCell = Me.DataGridView1.Rows(e.RowIndex).Cells("check")
chkCell.Value = Not chkCell.Value
End If

estadocheck2 = e.RowIndex
End Sub


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



Dim p As Integer
Dim adp As New OleDbDataAdapter
' Dim comand As New OleDbCommand("Delete from t_recados where id =" & p)
' comand.parameter.add(p, SqlDbType.Char, 10).value = TextBox.Text

p = Me.DataGridView1.Rows(fila_p).Cells("id").Value()

Dim ocmd As New OleDbCommand("Delete from t_recados where id=@id")
ocmd.Parameters.Add("@id", OleDbType.Integer).Value = p
ocmd.CommandType = CommandType.Text
ocmd.Connection = Con


If EstadoCheck(estadocheck2) = "True" Then
adp.DeleteCommand = ocmd
Con.Open()
adp.DeleteCommand.ExecuteNonQuery()

MsgBox("Registro Eliminado" & p)

'Con.Close()

Else
MsgBox("No hay Registros marcados para eliminar")
End If
Con.Close()


<-------- AQUI NO SE QUE PONER ------------->

Me.DataGridView1.refresh() ' sera de esta forma????????


End Sub

End Class



Muchas gracias, espero que alguien me oriente ya que e perdido mucho tiempo en esta tontera...:(