[Resolvido]Funções D do Avelino Sampaio

Olá, boa tarde amigos!
Estou usando as funções D do Avelino Sampaio em banco de dados vinculado.
Passei a tentar usá-las em um banco de dados desvinculado e começou a aparecer problemas.

Veja a função:

DLookupX("Andamento", "tbDtReq", "ReqId=" & intId & " And IdProduto=" & intProd)

Executando a linha acima localmente, funciona que é uma beleza. Porem caso eu a use
em um banco desvinculado, ele me retorna os valores corretaos mas aparece a mensagem
de erro "424 - O objeto é obrigatório"

A função de abrir conexão eu estou usando, porém sem criptografar. ela está assim:

Dim strPath As String

strPath = DLookup("Caminho", "Config") & "\Banco.accdb"
Set BD = OpenDatabase(strPath, False, False, ";pwd=987877")

E a DlookupX assim:

Dim rsDlookupx As DAO.Recordset
On Error GoTo TrataErro
Dim strSQL As String

strSQL = "Select (" & NomeCampo & ") AS k FROM " & NomeTabela & IIf(Filtro = "", ";", " WHERE " & Filtro & ";")
Call Abreconexao
Set rsDlookupx = BD.OpenRecordset(strSQL, 4)

DLookupX = rsDlookupx!k
rs.Close

Set rsDlookupx = Nothing

sair:
Call FechaConexao
Exit Function

TrataErro:
Select Case Err.Number
Case 3061: MsgBox "DLookupX - Campo inexistente...", vbInformation, "Aviso"
Case 3031: MsgBox "DLookupX - Conexão fechada com a base de dados...", vbInformation, "Aviso"
Case 3078: MsgBox "DlookupX - Tabela inexistente...", vbInformation, "Aviso"
Case 3464: MsgBox "DlookupX - Tipos de dados incopatíveis...", vbInformation, "Aviso"
Case 3021: DLookupX = Null
Case Else
MsgBox "DLookupX - " & Err.Description & " Nº: " & Err.Number
End Select

Em que estou errando?

Grato

Amigão, cadê a variável rs na linha rs.Close?
Altere para rsDlookupx.Close

Marcelo, gratíssimo, você sempre tem mi ajudado!! Era isso mesmo. Esqueci de renomear a variável mesmo!

Grato pelo retorno! A comunidade agradece.