List Box

[Heitor Andrade 0]

If txtNome.Text = Null Or txtNome.Text = " " Or txtNome.Text = "" Then	Exit SubElse	frase = "SELECT frequencia FROM CONSULTA WHERE cod_cliente =" & cCodigo	Set rs = cn.Execute(frase)	Do While Not rs.EOF		frequencia = [rs!frequencia]		lstFrequencia.AddItem frequencia		rs.MoveNext	LoopEnd If

alguem tem a luz do erro ae plz .-.?

 

eu ja estou ficando retardado de tanto reler este código... e pior de tudo, soh falta isso, parece que quanto mais pro fim do projeto mais burro fico =/

 

 

ajuda ae plz...

 

abraços

[Claudio Neto 3]

Tenta tirar a variável.

Vê se dá certo...

 

Do While Not rs.EOFlstFrequencia.AddItem rs!frequenciars.MoveNextLoop

[Dennys Lopes 0]

Qual erro que dá ?

[Heitor Andrade 0]

CLAUDIOOOOOOVLWWWWWFUNCIONO!!!!!SO MTOOOOOOOO GRATO A você

[Claudio Neto 3]

CLAUDIOOOOOOVLWWWWWFUNCIONO!!!!!SO MTOOOOOOOO GRATO A você

Que bom, precisando estamos ai...