Consulta SQL Excel VBA

[jjmendes 0]

Ola...

Gostaria de um help... para este trecho de código.

Estou a tentar fazer um consulta que busque duas informações num banco de dados, cujo critério de consulta é uma célula.

Escrevi desta forma:

strSQL = "SELECT DISTINCT [Projeto],[Talhao] FROM [Database$] WHERE [Database$].[Descrição Operacão] = Range(B1)"

mas esta apresentando erro: "Função range indefinida na expressão".

Desde já... Agradecido.

Editado 29 de Maio de 2015 por apocsantos
geshi

[BernasKing 0]

ola

tens de por Range(B1) entre aspas

strSQL = "SELECT DISTINCT [Projeto],[Talhao] FROM [Database$] WHERE [Database$].[Descrição Operacão] = " & Range(B1) & "

ou

strSQL = "SELECT DISTINCT [Projeto],[Talhao] FROM [Database$] WHERE [Database$].[Descrição Operacão] =  '" & Range(B1) &  '"

Editado 29 de Maio de 2015 por apocsantos
geshi