ERRO DE COMMOM CONTROLS 5.0 SP2 PARA 6.0 SP6

RICOCARDOZO 27/08/2010 17:30:10
#351527

Ola a Todos ;
Tenho um código que funciona belezinha , alterei a versão do meu commom controls de 5.0(SP2) para o 6.0(SP6) e agora ta gerando erro type mismatch , oque pode estar errado segue o código abaixo?


Dim nodx As Node
tv1.Nodes.Clear
Set tv1.ImageList = ImageList1

Set nodx = tv1.Nodes.Add(, , , [Ô]Movimentaçoes[Ô], [Ô]Resumo[Ô])
TabelaEspecie
TB_ESPECIE.LockType = adLockOptimistic
TB_ESPECIE.CursorType = adOpenStatic [ô]somente leitura
TB_ESPECIE.CursorLocation = adUseServer

TB_ESPECIE.Open [Ô]SELECT * FROM ESPECIE [Ô], BD_CAIXA
Do While Not TB_ESPECIE.EOF
Set nodr = tv1.Nodes.Add(nodx, tvwChild, , TB_ESPECIE!descricao, [Ô]Pagamentos[Ô])
TB_ESPECIE.MoveNext
Loop
FechaTabelaEspecie
nodr.Expanded = True

Set nodx = tv1.Nodes.Add(, , , [Ô]Caixa Banco Movimento[Ô], [Ô]Caixa Conta Movimento[Ô])
Set nodr = tv1.Nodes.Add(nodx, tvwChild, , [Ô]Exibir Caixa Movimento[Ô], [Ô]Incluir[Ô])
Set nodr = tv1.Nodes.Add(nodx, tvwChild, , [Ô]Exibir Banco Movimento[Ô], [Ô]Banco Movimento[Ô])