The problem is that you're using an old and shitty language. Just remember that you brought this thrashing upon yourself...

Good god man, you mix your DB code with your form code? Separate that shiznit! Have you heard of separating your application into logical layers? Business objects? And give your goddam form objects meaningful names! If I had even an incling of what relationship Problema12, Problema22, List(2,5,13), etc had then maybe it would make this easier to read. And this condition,

If posicao = -1 Then Exit Sub
If posicao <> -1 Then

If the first "If" statement isn't true then the second "If" statement has to be true! You don't need the second condition at all. And despite my cuntings I've taken the time to cut up the code and try to figure out what's going on. The question you have is "why doesn't this if statement ever return true?" We have no way of ever knowing. Label1.Caption comes from achou which is dBase.Field(3), whatever that is. Label2.Caption comes from a list which we have no idea what's in it.

Let me ask a simple question. Have you looked at this in the debugger and if you have what are the values of Label1.Caption and Label2.Caption when it hits this condition?

pixel-eight.com