[Resolvido]Loop não funciona em tabela ligada

Olá a todos
Estou com um problema numa consulta que gera etiquetas, o problema é que quando dividi a base de dados ela deixou de funcionar, se colocar a tabela na bd (Front-Office) novamente já funciona. Deve ser um coisa simples mas não estou a chegar lá.
Esse é o codigo que tenho no botão:

Private Sub Comando70_Click()
On Error Resume Next
Dim Cont As Integer
If IsNull(Me.Produto) Then Exit Sub
If IsNull(Me.Qnt) Then Exit Sub
'Cria referencia ao Corrente DB
Set db = CurrentDb
'Abre a tabela
Set TABELA = db.OpenRecordset("Etiquetas", dbOpenTable)

Cont = 0

Do While Me.Qnt <> Cont
Cont = Cont + 1
TABELA.AddNew
TABELA![CódigoEncomenda] = Produto
TABELA![Tam] = Tam
TABELA![CodBarras] = CodBarras
TABELA![Contador] = 1
TABELA.Update
Loop

TABELA.Close
Set db = Nothing
Qnt.SetFocus
Me.Refresh
End Sub

Tente mudando essa linha:
Set TABELA = db.OpenRecordset("Etiquetas", dbOpenTable)

para:

Set TABELA = db.OpenRecordset("Etiquetas")

Fábio Funcionou perfeitamente.

resolvido está!

Obrigado

Resolvido!