CreateDate - create a DataTable with some data in it...
I'm sick of writing this function so, I'll just park it here :-)
Private Function CreateData() As DataTable Dim dt As New DataTable("TestData") Dim dc1 As New DataColumn("Id", GetType(Integer)) Dim dc2 As New DataColumn("Name", GetType(String)) Dim dc3 As New DataColumn("BirthDate", GetType(DateTime)) dt.Columns.Add(dc1) dt.Columns.Add(dc2) dt.Columns.Add(dc3) Dim names() As String = {"darren", "peter", "robin", "phil", "wayne", "rob", "doug"} Dim theDate As DateTime = New DateTime(1968, 7, 22) For i As Integer = 0 To names.Length - 1 Dim dr As DataRow = dt.NewRow dr("Id") = i dr("Name") = names(i) dr("BirthDate") = theDate dt.Rows.Add(dr) Next Return dt End Function