Erro na busca

[PedroBarreto]

galera, eu não sei porque esta dando erro no seguitne codigo:

Private Sub DBGrid1_Click()

nome = Data1.Recordset.Fields("N°Venda").Value

Text5.Text = nome

Data2.RecordSource = "select * from Produtosvendidos where N°Pedido ='" & Text5.Text & "'"

Data2.Refresh

End Sub

o erro esta no no codigo: "Data2.Refresh"

e a mensagem de erro é a seguinte:

Run-Time error '3075':

Syntax error in query expressio "N°Pedido ='9090".

o valor 9090 é o valor clicado

Obrigado galera

[kuroi]

o campo chama mesmo N°Pedido?? sera q o erro num é por causa desse caractere °?? quando for dar nomes pra campos e tabelas tenta por o menos enfeitado possivel, de preferencia sem acento, sem espaco e sem caracteres estranhos (por exemplo, sem °), pra evitar esse tipo de erro.

mas pra corrigir isso no codigo, tenta fazer assim:

Data2.RecordSource = "select * from Produtosvendidos where [N°Pedido] ='" & Text5.Text & "'"

e caso o campo N°Pedido seja numerico, tenta assim:

Data2.RecordSource = "select * from Produtosvendidos where [N°Pedido] =" & Text5.Text