ERRO EM CONSULTA SQL

JORGESALES 16/05/2016 23:06:21
#462162
Pessoal boa noite, com podem ver na imagem acima estou com esse erro,
antes de postar pequisei o máximo que pude, o interessante é que este
é o mesmo código que uso no Excel VBA e lá funciona perfeitamente,
esta é a linha que apresenta o erro:

 Dim item As ListItem
     Dim ComandoSQL As String
    [ô]Seleciona agrupando os valores pela coluna Agrupador
    Conectar
    ComandoSQL = [Ô]select [Agrupador] from tabela_produtos GROUP BY [Agrupador] order by Agrupador DESC [Ô]
    Set consulta = banco.OpenRecordset(ComandoSQL)
    lstProdutos.ListItems.Clear
    While Not consulta.EOF
        Set list = lstProdutos.ListItems.Add(Text:=consulta([Ô]Agrupador[Ô]))
            consulta.MoveNext
    Wend

Este código está num módulo:
  Global banco As Database
      Global consulta As Recordset

Sub Conectar()
   Set banco = OpenDatabase(App.path & [Ô]\BancodeDados.mdb[Ô], False, False, [Ô]MS Access;PWD=123456[Ô])  
End Sub

Sub Desconectar()
    Set banco = Nothing
    Set consulta = Nothing
End Sub

Nas referencias uso o Microsoft DAO 3.6 em ambos.
O que pode ser essa mensagem de [Ô]Tipos não compatíveis[Ô]?
Ah, detalhe, o banco de dados é o mesmo

JABA 16/05/2016 23:50:20
#462164 Resposta escolhida
https://support.microsoft.com/pt-br/kb/181542

Causa:

Se o projeto contém referências a biblioteca Data Access Objects (DAO) e a biblioteca ActiveX Data Objects (ADO), você poderá ver várias entradas na lista para o objeto Recordset . Este erro ocorre quando você coloca a biblioteca do ADO com uma prioridade mais alta que a biblioteca DAO na caixa de referências , independentemente de qual entrada de conjunto de registros que você selecionar.

Solução:

Se você necessita somente do DAO, certifique-se de que a referência para a biblioteca de objetos DAO tem uma prioridade mais alta na caixa de referências ou limpe a referência ao Microsoft ActiveX Data Objects.

Se você quer usar ambos os objetos DAO e ADO Recordset , declare os objetos explicitamente como segue:

Dim adoRS As ADODB.Recordset
Dim daoRS As DAO.Recordset
JORGESALES 17/05/2016 07:20:07
#462166
JABA, mais uma vez nem sei como te agradecer, eu não
entendi bem porque funcionou dessa forma, mas o código
ta funcionando
Tópico encerrado , respostas não são mais permitidas
Voltar