Erro ao carregar listview com dados do banco

[rafa-martin 2]

pessoal fiz esse código:Dim rsProdutos As ADODB.RecordsetSet rsProdutos = New ADODB.RecordsetDim mConn As New ADODB.ConnectionDim strSQL As String'mConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourcer=\\192.168.0.139\SP\SOFT\METTA\Sistema_Metta_Shering.mdb"'mConn.Open "DBQ=\\192.168.0.139\SP\SOFT\METTA\Sistema_Metta_Shering.mdb; UID=administrador; PWD=; DRIVER={Microsoft Access Driver (*.mdb)}"ListView1.ListItems.ClearstrSQL = "Select * from itens_pedido2"rsProdutos.Open strSQL, conProdutos, adOpenForwardOnly, adLockReadOnly, adCmdText'mConn.Execute sql'define o item da listaDim ItemLst As ListItem'limpa a listaListView1.ListItems.ClearWhile Not rsProdutos.EOF'insere o item do arquivo de dadosSet ItemLst = ListView1.ListItems.Add(, , rsProdutos!codigo_produto)'cada item precisa de um subitem para exibir na listaItemLst.SubItems(1) = "" & rsProdutos!descontoItemLst.SubItems(2) = "" & rsProdutos!VALORItemLst.SubItems(3) = "" & rsProdutos!valor_bruto_iItemLst.SubItems(4) = "" & rsProdutos!valor_desconto_total_iItemLst.SubItems(5) = "" & rsProdutos!valor_liquido_i'vai para o proximo registrorsProdutos.MoveNextWendrsProdutos.CloseListView1.Refreshe não consigo carregar o listview.ele está dando erro nessa linha:rsProdutos.Open strSQL, conProdutos, adOpenForwardOnly, adLockReadOnly, adCmdTextdá erro no conProdutosuso um módulo chamado conProdutosPublic conProdutos As ADODB.ConnectionPublic Sub Conecta_BD() Set conProdutos = New ADODB.Connection With conProdutos .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source= \\192.168.0.139\SP\SOFT\METTA\Sistema_Metta_Shering.mdb" .Open End WithEnd SubPublic Sub Desconecta_BD() conProdutos.Close Set conProdutos = NothingEnd Subo que pode estar errado?me ajudem, por favor

[vib 0]

Qual é a mensagem de erro? :huh: