comparar registros sql con variables

[othix]

podrias probar con esto

Dim j As Integer = 0
Dim k As Integer = 0
dim band as boolean =true


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")

if not (k=j) then
band=false
end if

Next i
Next k
if band=false then
txt_membresia.Text = k+1
else
txt_membresia.Tex=k
end if

En este caso con alguno que no sea igual a k band=false
o podes buscar le valor que de K en el dataset y ver si te retorna todo el dataset es por que todos son iguales si varia alguno no es igual

dim filas() as datarow
filas()=ds4.Tables(0).Select("CL_MEMBRESIA = "+ k.ToString())
if (filas().lenght=ds4.Tables(0).Rows.Count)then
tu_codigo_cuando_todos_son_iguales
else
tu_codigo_cuando_no_son_iguales
end if