[Resolvido] , outra vez

Boas, desculpem estar sempre a pedir ajuda, mas não conheço mais ninguém que perceba de VB e ligações a bases de dados.

Desta vez o erro é o seguinte:

"Tipo de dados incorrectos na expressão ou critérios"

O código é o seguinte:

If TipoDeProduto = "ee" Then

rs2!zona = 1

Do

line = Int((2 * Rnd) + 1)

column = Int((20 * Rnd) + 1)

floor = Int((3 * Rnd) + 1)

rsverificar.Close

 **rsverificar.Open "SELECT * FROM Armazém WHERE (zona = 1) and (linha = '" & line & "') and (coluna ='" & column & "') and (andar='" & floor & "')", cn, 3, 3**

 If rsverificar.EOF Then

 rs2!linha = line

 rs2!coluna = column

 rs2!andar = floor

 End If

 Loop Until (rsverificar.EOF)

 End If

Dá erro na linha a bold, o estranho é que ele aceita o primeiro registo, mas depois já não aceita mais nenhum, começa a dar este erro, poderá ser das variáveis? do random?

Todos os campos da SQL na bd são do tipo numérico, as variáveis line, colomn e floor estão declaradas como inteiras.

Cumps