[Resolvido]Erro de compilação: era esperado tipo definido pelo usuário, não projeto

Eu tenho o seguinte código:

Dim db As Database
Dim rs As Recordset
Dim I As Integer
Dim strQuery As String
Dim StrDRE As String


StrDRE = ""
CmbDRE.SetFocus
StrDRE = CmbDRE.Text


If StrDRE = "000000" Then
Set db = CurrentDb
strQuery = "SELECT * FROM t_coleta_lanca"
Set rs = db.OpenRecordset(strQuery)
Form_f_debitos.RecordSource = strQuery
Form_f_debitos.Refresh
Else
Set db = CurrentDb

strQuery = "SELECT * "
strQuery = strQuery & " FROM "
strQuery = strQuery & " t_coleta_lanca "
strQuery = strQuery & " WHERE ("
strQuery = strQuery & " Dre = "
strQuery = strQuery & " """ & StrDRE & """"
strQuery = strQuery & " )"

Set rs = db.OpenRecordset(strQuery)

Form_fColeta.RecordSource = strQuery
Form_fColeta.Refresh

StrDRE = ""

End If

Em um banco de dados local (na minha máquina) com tabelas criadas nesse banco, não aparece algum e o código funciona muito bem.

O erro aparece quando eu tento rodá-lo em um arquivo com tabelas vinculadas.

Alguém pode me ajudar a encontrar uma solução?, por favor.

Eu preciso rodar esse código em um banco de dados com tabelas vinculadas.

Agradeço muito toda a ajuda.

Faça o teste desta forma, veja as diferenças e retorne;

Código:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim I As Integer
Dim strQuery As String
Dim StrDRE As String


StrDRE = ""
CmbDRE.SetFocus
StrDRE = CmbDRE.Text

Set db = CurrentDb

    If StrDRE = "000000" Then
        strQuery = "SELECT * FROM t_coleta_lanca"
       
        Set rs = db.OpenRecordset(strQuery)
        Form_f_debitos.RecordSource = strQuery
        Form_f_debitos.Requery
        Else
        strQuery = "SELECT * "
        strQuery = strQuery & " FROM "
        strQuery = strQuery & " t_coleta_lanca"
        strQuery = strQuery & " WHERE Dre = '" & StrDRE & "'"
       
        Set rs = db.OpenRecordset(strQuery)
        Form_fColeta.RecordSource = strQuery
        Form_fColeta.Requery
        StrDRE = ""
    End If
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

Fico feliz.

Obrigado pelo retorno o forum agradece.