Erro: O item não pode ser encontrado na coleção correspondente ao nome

Salve galera do Imasters!Então é o seguinte:Estou fazendo a seguinte pesquisa no vb:

dados.Open "select clientes.codcli, clientes.nome , interesses.interesse from clientes inner join interesses on clientes.codcli=interesses.codcli Where clientes.codcli = " & txtcodcli & " order by interesses.interesse", con, adOpenDynamic, adLockOptimistic Do While Not dados.eof lstinteresses.AddItem dados("interesses.interesse") dados.MoveNext Loop

está dando erro no " lstinteresses.AddItem dados("interesses.interesse") "Mas a consulta está certa, pois se copio ela e colo na consulta do access ele funciona.Também verifiquei que os campos clientes.codcli e interesses.codcli são numéricos.(apenas o clientes.codli é auto numeração, mas acho que não tem nada a ver).O que pode ser?