Visual Basic.NET - Consulta de Grilla

Hola amigos del foro, les comento que estoy tratando de ingresar datos a una grilla, la cual me funciona en la primera fila, pero al momento de ingresar la 2ª fila , esta se monta encima de la primera, es decir, se va borrando la última fila ingresada y no aumenta en más 1 como siempre debe hacerlo, a continuación, les muestro el código que estoy utilizando e través de un Button que se llama cmdingresar.

Protected Sub CMDINGRESAR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMDINGRESAR.Click
dt = Session("tabla")
n_rev = Session("revision")
If Not CMDINGRESAR.Text = "Modificar" Then
If MsgBox("¿Desea seguir ingresando.?", MsgBoxStyle.YesNo, "Sistema") = vbYes Then
Dim row As Data.DataRow
row = dt.Tables("Grilla").NewRow()
row("N_Filas") = CInt(TXTITEM.Text)
row("Marca_Vehiculo") = TXTMARCA.Text
row("Modelo_Vehiculo") = TXTMODELO.Text
dt.Tables("Grilla").Rows.Add(row)
Grilla.DataSource = dt.Tables("Grilla")
Grilla.DataBind()
TXTMARCA.Enabled = False
TXTMODELO.Text = ""
TXTITEM.Text = TXTITEM.Text + 1
TXTMODELO.Focus()
Else
TXTMARCA.Text = ""
TXTMODELO.Text = ""
TXTMARCA.Focus()
End If
Else
If MsgBox("¿Desea Modificar estos datos.?", vbYesNo, "Sistema") = vbYes Then
dt = Session("tabla")
MsgBox(indice_fila.Text)
dt.Tables("grilla").Columns(0).Unique = True
dt.Tables("grilla").Rows.Find(CInt(indice_fila.Text)).Delete()
Dim row As Data.DataRow = dt.Tables("grilla").NewRow
row("N_Filas") = TXTITEM.Text
row("Marca_Vehiculo") = TXTMARCA.Text
row("Modelo_Vehiculo") = TXTMODELO.Text
Try
dt.Tables("grilla").Rows.Add(row)
Catch ex As Exception
MsgBox("error al modificar" & ex.Message)
End Try
edit_mode = False
TXTMARCA.Text = ""
TXTMODELO.Text = ""
TXTMARCA.Focus()
CMDINGRESAR.Text = "Ingresar"
Grilla.DataBind()
Else
TXTMARCA.Text = ""
TXTMODELO.Text = ""
TXTMARCA.Focus()
End If
End If
End Sub

Sub validar(ByVal obj As Object, ByVal e As EventArgs) Handles CMDINGRESAR.Click
If Page.IsValid Then
End If
End Sub

favor de ayudarme ya que he intentado de todo y nada me sirve, desde ya muchas gracias.

talvez te falta actualizar tu grilla yo agrego algo como esto

'Declaro mi dataadapter con la consulta hacia la tabla que quiero
Dim da As New SqlDataAdapter("select * from tabla1", conexion)
'Declaro el datatable
Dim dt As New DataTable
dt = New DataTable
'Lleno el dataadapter
da.Fill(dt)
'Actualizo mi datagrid
Me.DataGridView1.DataSource = dt

Veo que trabajamos con diferentes objetos pero talvez te sirva como referencia espero poder ayudar