Aggiungere nuove righe

Private Sub SetColumnHeaders(ByVal schema As DataTable)
Dim row As DataRow

OrderDetailsList.View = View.Details
For Each row In schema.Rows
OrderDetailsList.Columns.Add(row("ColumnName"), 100, HorizontalAlignment.Left)
Next
ColumnsSet = True
End Sub