For Each eller Loop ?

Hejsa,

Hvordan får jeg lige fikset en foreach eller loop i nedenstående ?

'--- Laver dataview med produkter.
Dim Dv As DataView = New DataView
Dv.Table = ProductBiz.CacheProduct("No").Tables("tbl_products")
Dv.RowFilter = "getLanguage = '" & HttpContext.Current.Session("SetLanguage") & "' And Prod = 0"
Dv.Sort = "Cat, Id ASC"

'--- Her skal jeg så have lavet en for each eller loop.
Do While Dv(0)("Id") Is Nothing
    If Dv(0)("CatId") = 0 Then
        CatId = 0
    Else
        CatId = "id" & Dv(0)("CatId")
    End If

    oTree.Add(CatId, "id" & Dv(0)("Id"), Dv(0)("CatName"), 0)
Loop

/Websam