For Each dr As DataRow in dtVolumeOrder.Rows()
dr As DataRow in dtVolumeOrder.Rows()
Dim intEventID As Integer = CType(dr.item("intEventID"), Integer)
'response.write("test: " + intEventID.ToString())
FillUserTypeList(intEventID)
Exit For
Next
HTH
Ashok