The following is the loop i using now
For Each objDR In objDT.Rows
Dim ritem1 As New receipt_Items
ritem1.DN_ID = objDR("DN_ID")
ritem1.DN_amoun t = objDR("amount")
ritems.Add(rite m1)
Next
My loop is not working properly if datatable contained more than one row....