[Resolvido] Sistema de Acesso

Bom dia

Estou tentando implementar o Sistema de Controle de Acesso, que encontrei aqui no Imaster, que por sinal é muito interessante, mas estou tendo problema na sub abaixo, que retorna erro de "Tipos diferentes" sinalizando na linha sublinhada.

' rotina que preenche o ListView com os usuários já cadastrados no banco
Private Sub montarLista()
Dim lstUsuaria As ListItem
With rsUsuarios

 .Open "select * from Usuarios order by nome", cnn, adOpenKeyset, adLockOptimistic
 'limpar lista
 LstViewUsuario.ListItems.Clear
 'carregar a lista
 [u]Set lstUsuaria = LstViewUsuario.ListItems.Add(, , "<Novo>")[/u]
 If .EOF Then
 MsgBox "Não existem usuários cadastrados no sistema.", vbExclamation
 Else
 Do Until rsUsuarios.EOF
 Set lstUsuaria = LstViewUsuario.ListItems.Add(, , rsUsuarios("Usuario"))
 lstUsuaria.Tag = rsUsuarios("Cod_Usuario")
 lstUsuaria.SubItems(1) = rsUsuarios("Nome")
 lstUsuaria.SubItems(2) = rsUsuarios("Dpto")
 lstUsuaria.SubItems(3) = rsUsuarios("Cargo")
 lstUsuaria.SubItems(4) = rsUsuarios("Senha")
 rsUsuarios.MoveNext
 Loop
 End If
 .Close
 End With

End SubJá procurei a soluçaão em diversos lugares, mas aparentemente está tudo certo.

alguem poderia me dar uma dica de onde eu possa estar errando??

Nereu