continua dando erro

Essa instrução deve funcionar, fiz vários testes, pelo menos em Base ACCESS deu certo,

SELECT produto.* FROM produto WHERE (((produto.cod)>='" & criterio & "'));

André, várias causas podem ocorrer com este erro,

O Data1 não está ligado ao Banco de Dados

O Banco de Dados não está sendo localizado.

Não existe a Tabela produto.

A Tabela produto não tem o campo cod.

O criterio está indo vazio, com espaços.

O tipo de dados do campo cod não é um texto.

teste assim:

 

If Len(Trim(scriterio)) = 0 Then

 Data1.Recordsource = "Select * from produto where cod>='" & scriterio & "'"

Else

 Data1.RecordSource = "select * from produto order by cod"

End If

 

E verifique todas as causas.

 

vlu//

coloquei, não deu certo

André, entre no MSN e mande o projeto, não tem como, esta passando alguma coisa despercebida por voce.

 

vlu//

.