E ae galera consigui sanar esse erro!!!!!!!!!era a referencia do ADO mesmo....mas agora o erro tá no ListView...Será que alguem pode me ajudar?
Segue abaixo o código do Listview:
_______________________________________________________________________
Private Sub montarLista()
Dim lstUsuaria As ListItem
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "select * from usuarios order by nome", cn, adOpenKeyset, adLockOptimistic
ListView1Usuário.ListItems.Clear 'acertei o nome do ListView
Set lstUsuaria = ListView1Usuário.ListItems.Add(, , "<Novo>")
If .EOF Then
MsgBox "Não existem usuários cadastrados no sistema.", vbExclamation
Else
Do Until rs.EOF
Set lstUsuaria = ListView1Usuário.ListItems.Add(, , rs("usuario"))
lstUsuaria.Tag = rs("cod_usuario")
lstUsuaria.SubItems(1) = rs("nome")
lstUsuaria.SubItems(2) = rs("dpto")
lstUsuaria.SubItems(3) = rs("cargo")
lstUsuaria.SubItems(4) = rs("senha")
rs.MoveNext
Loop
End If
.Close
End With
End Sub
