Dim i As Integer
Dim dt As DataTable = nothing
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Form1.Load
        dt = New DataTable("T")
        dt.Columns.Add("Name")
        dt.Columns.Add("Adresse")
        DataGrid1.DataSource = dt
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        i = i + 1
        dr = dt.NewRow()
        dr("Name") = "Zeile" & i
        dr("Adresse") = "Zeile " & i
        dt.Rows.Add(dr)
End Sub