Ret="a1\a2\a3\a4|b1\b2\b3\b4|c1\c2\c3\c4|d1\d2\d3\d4"

Private Sub ActiveReport_FetchData(EOF As Boolean)
Dim Ret As String, Ret1 As String
Dim rec As Integer, cnt As Integer, n As Integer
Dim arr() As String

Ret="a1\a2\a3\a4|b1\b2\b3\b4|c1\c2\c3\c4|d1\d2\d3\d4"
Varfull = Split(Ret, "|")
rec = UBound(Varfull)
n =  0 
    For cnt =  0  To rec -  1 
    n = n +  1 
    Ret1 = Varfull(cnt)
    arr = Split(Ret1, "\")
    Fields("ProductID").VALUE = arr( 0 )
    Fields("ProductName").VALUE = arr( 1 )
    Fields("QuantityPerUnit").VALUE = arr( 2 )
    Fields("UnitPrice").VALUE = arr( 3 )
    Next cnt
End Sub

Private Sub ActiveReport_Initialize()
    Fields.Add "ProductID"
    Fields.Add "ProductName"
    Fields.Add "QuantityPerUnit"
    Fields.Add "UnitPrice"
End Sub