dim customerDt as datatable
customerDt =new datatable()

customerDt.Columns.add("TestName")
customerDt.Columns.add("TestAge")
customerDt.Columns.add("TestYear")

dim customerDr as datarow
customerDr =customerDt.newrow()
customerDr ("TestName")="Vinod"
customerDr ("TestAge")="25"
customerDr ("TestYear")="1983"
customerDt.Rows.Add(customerDr )          

Dim rowcount As Integer = 0
Dim Enumerator As IEnumerator = customerDt.Rows.GetEnumerator

While Enumerator.MoveNext
            
response.write(customerDt.Rows.Item(rowcount).Item("TestName"))
response.write(customerDt.Rows.Item(rowcount).Item("TestAge"))
response.write(customerDt.Rows.Item(rowcount).Item("TestYear"))

rowcount = rowcount + 1

End While