[Resolvido]Função DCountX do Avelino para uso em Back-End desvinculado

Estou tentando adaptar para utilizaçao em um Back-End desvinculado, mas não estou a conseguir.

Estou fazendo assim:

Public Function DCountX(NomeCampo As Variant, nomeTabela As Variant, Optional filtro As String = "") As Variant
On Error GoTo TrataErro
Parametros_de_Inicializacao "SysApac.par"
Dim db As DAO.Database
Dim Ws As DAO.Workspace
Dim Rs As DAO.Recordset
Dim StrSQL As String


Set Ws = DBEngine.Workspaces(0)
Set db = Ws.OpenDatabase(DirBancoDados & "\SysApac_Be.Accdb", False, False, "MS Access;PWD=senha")
StrSQL = "Select count(" & NomeCampo & ") AS k FROM " & nomeTabela & IIf(filtro = "", ";", " WHERE " & filtro & ";")

Set Rs = db.OpenRecordset(StrSQL, 4)

DCountX = Rs!K
Rs.Close
Set Rs = Nothing
Sair:
    Exit Function
TrataErro:
Select Case err.Number
    Case 3061: MsgBox "DCountX - Campo inexistente...", vbInformation, "Aviso"
    Case 3031: MsgBox "DCountX - Conexão fechada com a base de dados...", vbInformation, "Aviso"
    Case 3078: MsgBox "DCountX - Tabela inexistente...", vbInformation, "Aviso"
    Case 3464: MsgBox "DCountX - Tipos de dados incopatíveis...", vbInformation, "Aviso"
    Case 3021: DCountX = 0
    Case Else
        MsgBox "DCountX - " & err.Description & " Nº: " & err.Number
End Select
End Function

O que estou a fazer errado amigos?

Cumprimentos.

E qual é o erro que acusa ?

Bom dia Aveino...

O erro:
Case 3061: MsgBox "DCountX - Campo inexistente...", vbInformation, "Aviso"

Cumprimentos.

Boas Avelino,,, estive a ver e o problema não está na função e sim no Telemax....Como estou utilizando o sistema de login do mesmo, não me passou pela cabeça ter algo de errado no código, porém no frmUsuários, no botão salvar:

.....
Else
    filtro = "Login = '" & Me!tx1 & "'"
    If DCount("nome", "tblUsuários", filtro) > 0 Then
        msg.corpo = "Usuário já registrado."
        msg.fCarregaMsg
        Me!tx1.SetFocus
        Exit Sub

O campo na tabela é: Login.... e não Nome...


Cumprimentos.