[Resolvido]Erro depois de dividir projeto

Tenho um formulário de Login no meu projeto que funciona muito bem.
Resolvi dividir a base de dados e a partir daí deu-me o seguinte erro:
"run-time error '3251':
Operação não suportada para este tipo de objecto."

O código no botão é o seguinte:

Dim rs As DAO.Recordset
Dim DB As DAO.Database
Set DB = CurrentDb
Set rs = DB.OpenRecordset("Usuários")
rs.Index = "PrimaryKey"------------(o erro está nesta linha)
rs.Seek "=", Me.Texto13
If rs.NoMatch = True Then
MsgBox "Usuário desconhecido, Acesso Negado", vbInformation
Me.caUser.SetFocus
Exit Sub

Antes de dividir o projeto não dava erro, funcionava direitinho.
Accesss 2010

grato pela ajuda

As tabelas estão vinculadas no frontend ou o vínculo é feito apenas via vba? Caso seja apenas via vba, terá que passar o caminho da base de dados no lugar do CurrentDb, pois CurrentDb significa o banco atual aonde está o formulário com a função. Tente tambem alterar um pouco a função assim:

Dim rs As DAO.Recordset
Dim DB As DAO.Database

Set DB = CurrentDb
Set rs = DB.OpenRecordset("Usuários")

rs.FindFirst "Código=" & Me.Texto13

If rs.NoMatch = True Then
    MsgBox "Usuário desconhecido, Acesso Negado", vbInformation
    Me.caUser.SetFocus
    Exit Sub
Else
    Continua procedimento
End If

E não se esqueça de fechar os objetos e liberar a memória:

rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing

Obrigado pela resposta.
As tabelas estão vinculadas no frontend.
"Código=" refere-se a quê?

Código seria a chave primária da tabela.

OLá

O SEEK não funciona para tabelas vinculas. Terá que usar outro método de pesquisa como por exemplo FindFirst. Como está usando tabelas vinculadas, reduziria bem o código se usa-se a função DCount() ou a função Dlookup()

Obrigado pela ajuda
resolvido

Agrademos pelo retorno. Só para que outros membros possam saber, o que era e como resolveu?