Agregar datos al DataGridView1 con un TextBox1

[tazzwt]

La idea es poder agregar un listado al DataGridView1, con solo igresar el nombre al TextBox1, pero cada ves que lo ingreso me sobre escribe lo ya ingresado, como puedo hacer que se genere un listado con lo ingresado.

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As New DataTable("Personas")
        dt.Columns.Add("Nombre")
 
        dt.Rows.Add(New Object() {TextBox1.Text})
 
        DataGridView1.DataSource = dt
        DataGridView1.Rows(0).DefaultCellStyle.BackColor = Color.Yellow
 
    End Sub