evitar que salga un registro que no quiero

[oslar]

gracias Malenko

lo e intentado de esta forma:

Código vb:

Do
            Do
                a = 1 + (Rnd() * b)
            Loop While a >= b
            For Each datos As DataRow In imagentabla.Rows
 
                If (datos("id").ToString) = a And datos("preguntada").ToString = False Then
                    Button9.Text = datos("tema").ToString
                End If
 
            Next
 
        Loop While (datos("id").ToString) = a And datos("preguntada").ToString = False
 

pero me saca un error diciendome que:utilice la clave "new" para crear una instancia de objeto.

se lo que me quieres decir y es la idea que quiero pero no se como adecuar el do ni el while para que no me sake ese error a la hora de ir comparando.

gracias d nuevo