Adding New Row to DataTable

    Dim dtNewRow As DataRow  
    dtNewRow = resultsDataTable.NewRow()  
    dtNewRow.Item("id") = 0  
    dtNewRow.Item("name") = "Joe Blogs" 
    resultsDataTable.Rows.Add(dtNewRow)  
     
    'This part allows you to sort your results  
    Dim v As DataView = resultsDataTable.DefaultView  
    v.Sort = "name DESC" 
    resultsDataTable = v.ToTable()