'Create our datatable column structure
dtblAccount.Columns.Add("ID", GetType(Integer))
dtblAccount.Columns.Add("UserName", GetType(String))
dtblAccount.Columns.Add("UserPass", GetType(String))
dtblAccount.Columns.Add("Email", GetType(String))
dtblAccount.Columns.Add("FirstName", GetType(String))
dtblAccount.Columns.Add("LastName", GetType(String))
dtblAccount.Columns.Add("BusinessName", GetType(String))
dtblAccount.Columns.Add("BusinessDesc", GetType(String))
dtblAccount.Columns.Add("Phone", GetType(String))
dtblAccount.Columns.Add("Fax", GetType(String))
dtblAccount.Columns.Add("Address", GetType(String))
dtblAccount.Columns.Add("City", GetType(String))
dtblAccount.Columns.Add("State", GetType(String))
dtblAccount.Columns.Add("ZipCode", GetType(String))
dtblAccount.Columns.Add("Country", GetType(String))
dtblAccount.Columns.Add("ValidationCode", GetType(String))
dtblAccount.Columns.Add("Validated", GetType(Integer))
dtblAccount.Columns.Add("WebsiteURL", GetType(String))
dtblAccount.Columns.Add("DateRegistered", GetType(DateTime))
'Create a DataRow, filled with the proper column contents
dRow("ID") = objDS("ID") & ""
dRow("UserName") = objDS("UserName") & ""
dRow("UserPass") = objDS("UserPass") & ""
dRow("Email") = objDS("Email") & ""
dRow("FirstName") = objDS("FirstName") & ""
dRow("LastName") = objDS("LastName") & ""
dRow("BusinessName") = objDS("BusinessName") & ""
dRow("BusinessDesc") = objDS("BusinessDesc") & ""
dRow("Phone") = objDS("Phone") & ""
dRow("Fax") = objDS("Fax") & ""
dRow("Address") = objDS("Address") & ""
dRow("City") = objDS("City") & ""
dRow("State") = objDS("State") & ""
dRow("ZipCode") = objDS("ZipCode") & ""
dRow("Country") = objDS("Country") & ""
dRow("ValidationCode") = objDS("ValidationCode") & ""
dRow("Validated") = objDS("Validated") & ""
dRow("WebsiteURL") = objDS("WebsiteURL") & ""
dRow("DateRegistered") = objDS("DateRegistered") & ""
'Add drow, the row we just created, to the datatable
dtblAccount.Rows.Add(dRow)