en base a este problema ahora tengo este
Código vb:
Ver originalDim j As Integer = 0
Dim k As Integer = 0
Do While k = j
For k = 1 To val_cant
For i As Integer = 0 To ds4.Tables(0).Rows.Count - 1
j = ds4.Tables(0).Rows(i).Item("CL_MEMBRESIA")
Next i
Next k
txt_membresia.Text = k
Loop
como lo pudiera acomodar para que compare si k es diferente a todos los registros el text sea ygual a k y si k es = a todos los registros txt sea = k + 1