Private Sub AddDataRow(ByVal myTable As DataTable)
Dim rc As DataRowCollection
Dim newRow As DataRow
rc = myTable.Rows
newRow = myTable.NewRow()
' Assuming the table has two columns, set their values.
newRow(0) = "hello"
newRow(1) = "world"
rc.Add(newRow)
End Sub