Customization: code to Add value to Grid from epiDataView

Below is my code to add a value to an epiGrid. The grid is bound to the HeaderListView. Unfortunately this view does not display the UD fields. We want to see the UD fields from this HeaderListView, and my code below accomplishes this. The problem is I am using the BO Reader to get these values. I should be able to use the epidataview instead, which I assume would be much faster. Can anyone help convert my code to get these values from the dataview rather than using the boreader, I have been trying all morning and can't get it? Again, I don't want to use the BOReader how to I get the epidataview to accomplish this same task?

Private Sub PopulateGrid_InitializeRow(sender As Object, e As Infragistics.Win.UltraWinGrid.InitializeRowEventArgs)

If Not [String].IsNullOrEmpty(e.Row.Cells("OrderNum").Value.ToString()) Then

Dim ds As DataSet = boReader.GetRows("SalesOrder", "OrderNum='" & e.Row.Cells("OrderNum").Value.ToString() & "'", "OrderStatus,RequestDate,ShortChar01,Character01,ShipToNum,Checkbox04,CheckBox01,Checkbox02,Checkbox03,ShortChar02,ShortChar03,ShortChar05")

If ds.Tables(0).Rows.Count > 0 Then

e.Row.Cells("OrderStatus").Value = ds.Tables(0).Rows(0)("OrderStatus")
e.Row.Cells("OrderHedRequestDate").Value = ds.Tables(0).Rows(0)("RequestDate")
e.Row.Cells("OrderHedShortChar01").Value = ds.Tables(0).Rows(0)("ShortChar01")
e.Row.Cells("OrderHedCharacter01").Value = ds.Tables(0).Rows(0)("Character01")
e.Row.Cells("ShipToNum").Value = ds.Tables(0).Rows(0)("ShipToNum")
e.Row.Cells("OrderHedCheckbox04").Value = ds.Tables(0).Rows(0)("Checkbox04")
e.Row.Cells("OrderHedCheckBox01").Value = ds.Tables(0).Rows(0)("CheckBox01")
e.Row.Cells("OrderHedCheckbox02").Value = ds.Tables(0).Rows(0)("Checkbox02")
e.Row.Cells("OrderHedCheckbox03").Value = ds.Tables(0).Rows(0)("Checkbox03")
e.Row.Cells("OrderHedShortChar02").Value = ds.Tables(0).Rows(0)("ShortChar02")
e.Row.Cells("OrderHedShortChar03").Value = ds.Tables(0).Rows(0)("ShortChar03")
e.Row.Cells("OrderHedShortChar05").Value = ds.Tables(0).Rows(0)("ShortChar05")
End If

End Sub