Filas en un datatable

Hola

Mi consulta es la siguiente tengo que mostrar en una grilla
unos datos que ingreso en dos textbox

ejemplo tengo dos textbox uno nombre y el otro apellido con un boton agregar
ingreso "juan", "perez"
agregar y me lo llena en la grilla
pero cuando quiero crear otro nombre y apellido me borra el anterior y me agrega el ultimo la idea es que se vayan listando
segun los que agrege

le muesto mi codigo cualquier ayuda es bienvenida !!

Private Sub llenarGrilla()
dt.Columns.Add("Nombre")
dt.Columns.Add("Apellido")
dr("Nombre") = txtPrimerNombre.Text
dr("Apellido") = txtApellidoPaterno.Text
dt.Rows.Add(dr)
ds.Tables.Add(dt)
dr = dt.NewRow()
dr("Nombre") = i
dr("Apellido") = "item " + i.ToString()
dt.Rows.Add(dr)
dgrResultado.DataSet = ds
dgrResultado.DataBind()
End Sub

Gracias