outra vez VB

Boas, peço desculpa por estar novamente a postar mais um erro, já andei para aqui a tentar ver onde está o erro mas não consigo.

CODE

If TipoDeProduto = "ee" Then

rs2!zona = 1

Do

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

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

If local_zona1(column, line) = 0 Then

rs2!linha = line

rs2!coluna = column

End If

Loop While (local_zona1(column, line) = 1)

local_zona1(column, line) = 1

O erro está a negrito, diz "Object required", o rs2 está aberto na função do Botão, depois dentro dessa chamo outra função onde executo o código que estou aqui a por. Como o rs2 está aberto na função principal quando chamo outra função ele continua aberto e trabalha dentro dessa certo? Eu já fiz isso noutro programa e trabalhou.

O campo zona é do tipo numérico.

Mias uma vez peço desculpa por estar sempre a por dúvidas e agradeço a vossa ajuda.

Cumps