Ayuda con un Refresh del DataGrid

[grisel]

Ok .

Va. Tratare de ser lo mas clara posible.

En el Load de la pagina tengo esto.

//Creo una nueva tabla 2
Dim Tabla As New DataTable
Dim row As DataRow
Dim col As DataColumn

Dim Renglon As DataRow
Dim i As Integer

'Llenar tabla nueva
col = New DataColumn
col.ColumnName = "Clave"
Tabla2.Columns.Add(col)

col = New DataColumn
col.ColumnName = "Nombre"
Tabla2.Columns.Add(col)

col = New DataColumn
col.ColumnName = "Estado"
Tabla2.Columns.Add(col)

col = New DataColumn
col.ColumnName = "Tipo"
Tabla2.Columns.Add(col)

DataGrid1.DataSource = gTabla()
DataGrid1.Show()


Ok la funcion gTabla tiene esto:

Tengo una Tabla1 donde sus datos se los paso a la Tabla2.
Tabla1 = oUsuarios.Consultar // Trae una consulta de la base

For i = 0 To Tabla.Rows.Count - 1
//Codigo donde paso mis datos de la tabla1 a la tabla2
Next
Return Tabla2
End Function

Hasta aqui se daran cuenta que lo que quiero mostrar en mi DataGrid1 es la Tabla2.

Ok cargo mi DataGrid con Tabla2 Perfecto hasta ningun problema.
Al momento de dale click en cualquiera de mis registros del grid se cargan automaticamente en una cajas de texto ok entonces una vex aqui puedo eliminar o modificar mi registro.

Ok en el Click del mi button eliminar tengo esto:

Private Sub BtnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEliminar.Click
Try
If TxtCve.Text = "" Then
MsgBox("Seleccione el registro a eliminar",MsgBoxStyle.Information)
Else
Dim oEliminar As New SIAPREClasses.ClasesGenerales.Usuario(CInt(TxtCve. Text))
oEliminar.Eliminar()
actualiza = True
End If
Catch ex As Exception
MsgBox("El usuario no puede ser eliminado de la base de datos", MsgBoxStyle.Critical)
End Try

If actualiza = True Then
TxtCve.Text = ""
TxtNombre.Text = ""
checkEstado.Checked = False
cmbTipoAcceso.SelectedIndex = 0

DgPersonal.DataSource = Nothing
DataGrid1.DataSource = gTabla() //Es aqui donde esta mi problema
DataGrid1.Show() //Ya que no borra los datos anteriores
End If //Mi DataGrid