[Resolvido]2 condições no RecordSet com SQL

boa tarde a todos

venho mais uma vez pedir ajuda a esse grande forum. então vamos la...
estou a horas me matando pra fazer o VBA criar o seguinte recordSet

Código:


Sub criarEtiq(COD1 As Double, COD2 As Double, Cidade As String, cep1 As String, cep2 As String)
 
  Dim bc as DataBase
  Dim rs as RecordSet
  'Cria Tabela Mala2013
  Dim strSQL As String
 
  strSQL = " SELECT TblCadastro.Sigla, TblCadastro.FisicaJuridica, TblCadastro.EmpresaNome, TblCadastroCompl.Tratamento, TblCadastro.Estado, TblCadastroCompl.Nome_Contato, TblCadastro.Endereço, TblCadastro.Número, TblCadastro.Log, TblCadastro.Compl, TblCadastro.Bairro, TblCadastro.Cep, TblCadastro.Cidade, TblCadastro.DataAtualização, TblCadastroCompl.CódigoInteresse, TblCadastroCompl.CódigoCliente, TblCadastro.Devolução" & _
  " INTO Mala2013 " & _
  " FROM TblCadastro INNER JOIN TblCadastroCompl ON TblCadastro.[CódigoCliente] = TblCadastroCompl.[CódigoCliente]" & _
  '" WHERE (((TblCadastroCompl.CódigoInteresse) Between COD1 And COD2))" 'Nao acha campo cod1 e campo cod2
 
  '" WHERE CódigoInteresse > " & COD2 'Assim Funciona, mas so tem uma condição
 
  '" WHERE CódigoInteresse Between " & COD1 And COD2 ' Erro Tipo Incompativeis
     
  '" WHERE CódigoInteresse >= " & COD1 And CódigoInteresse >= " & COD2 ' Erro Tipo Incompativeis

  Dim bc As Database
  Dim rs As Recordset
  Set bc = CurrentDb()
  Set rs = bc.OpenRecordset(strSQL)

end function



caros amigos alguem pode me ajudar e me dizer o q eu to errando na condição WHERE

strSQL = " SELECT TblCadastro.Sigla, TblCadastro.FisicaJuridica, TblCadastro.EmpresaNome, TblCadastroCompl.Tratamento, TblCadastro.Estado, TblCadastroCompl.Nome_Contato, TblCadastro.Endereço, TblCadastro.Número, TblCadastro.Log, TblCadastro.Compl, TblCadastro.Bairro, TblCadastro.Cep, TblCadastro.Cidade, TblCadastro.DataAtualização, TblCadastroCompl.CódigoInteresse, TblCadastroCompl.CódigoCliente, TblCadastro.Devolução " _
& " INTO Mala2013 " _
& " FROM TblCadastro INNER JOIN TblCadastroCompl ON TblCadastro.[CódigoCliente] = TblCadastroCompl.[CódigoCliente]" _
& " WHERE (((TblCadastroCompl.CódigoInteresse) Between " & COD1 & " And " & COD2 & "))"

Vlw Grande JPaulo
nao sei o q eu faria sem ajuda de vc e desse grande forum.

Obrigado pelo retorno o forum agradece.