filtragem em banco firebird com extensao fdb

bom dia tenho esse codigo q uso pra pesquisar no banco accdb, mas agora to migrando pra firebird e quero usar esse codigo pra pesquisar no banco fdb
alguem pode me da uma ideia como se faz esse codigo pra pesquisar no firebirds


Public Function DlookupX(NomeCampo As Variant, nomeTabela As Variant, Optional Filtro As String = "") As Variant
Dim rs As dao.Recordset
Dim strSQL As String
strSQL = "Select (" & NomeCampo & ") AS k FROM " & nomeTabela & IIf(Filtro = "", ";", " WHERE " & Filtro & ";")
Call fncAbreConexao(102030)
Set rs = db.OpenRecordset(strSQL, 4)
DlookupX = rs!k
rs.Close
Set rs = Nothing
End Function

Boa tarde Nadiro!

Código:

Public Function DlookupX(NomeCampo As Variant, nomeTabela As Variant, Optional Filtro As String = "") As Variant
'Dim rs As dao.Recordset
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim strSQL As String

Set CN = fncAbreConexao(102030)

RS.Open = "Select (" & NomeCampo & ") AS k FROM " & nomeTabela & IIf(Filtro = "", ";", " WHERE " & Filtro & ";"), CN, adOpenStatic, adLockPessimistic
DlookupX = RS!k
RS.Close
Set RS = Nothing
End Function

Espero que funcione, eu fiz isso de memória.

Saludos

minha conexao com o banco e essa

Public Function conConexao(Optional Chave As Long = 0)
If Chave <> 102030 Then Exit Function
Dim con As ADODB.Connection
Dim strSQL As String
Set con = New ADODB.Connection
Set rsu = New ADODB.Recordset
con.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;DBNAME=K:\SysPosto\Dados\BDPOSTO.FDB;UID=SYSDBA;PWD=masterkey"
con.Open
End Function