Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco

Bom dia pessoal!
Tenho um script fornecido por um amigo ja ha anos para geração de boletos do Bradesco Carteira 06. Nunca deu erro.
Hoje resolveu criar problemas e eu não sei o motivo.
Aparece este erro quando tento gerar:
"Erro em Tempo de Execução 3251:
Operação não suportada para este tipo de objeto

abaixo segue o código e onde está dando o erro:
Todas as tabelas são locais.
Obrigado se puderem ajudar.
Wagner

Static Function codebar(t44 As String) As String

Const sinaldestart = "!"
Dim X As Byte, xpar As String
Dim rs_barras As DAO.Recordset

Set rs_barras = CurrentDb.OpenRecordset("atblbarras", dbOpenSnapshot)
rs_barras.Index = "PrimaryKey"
codebar = sinaldestart
For X = 1 To 44 Step 2
xpar = Mid$(Trim(t44), X, 2)
'rs_barras.FindFirst "=", xpar
rs_barras.Seek "=", xpar
If rs_barras.NoMatch Then
codebar = String(22, "0")
MsgBox "Erro na geração do código de barras", vbInformation
Exit Function
End If
codebar = codebar & rs_barras![bar]
Next X
codebar = codebar & Chr$(34)
rs_barras.Close

End Function

wbonelli

tente tratar o erro colocando acima de sua função

On Error Resume Next

OI Nóis, boa noite!
Desculpe a demora em responder, mas tive alguns problemas e não consegui retornar aqui para dar um feedback.
Então, consegui resolver o problema com a ajuda em um outro forum sobre access, aqui coloco a resposta caso ajude a outros que tenham o mesmo problema:

_____________________
Sugestões.

Tente trocar o dbOpenSnapshot por Snapshot sómente.
Se ainda não der certo suprime o dbOpenSnapshot no comando de abertura do Recordset.

Aldo Cres

Obrigado!
Waqgner