é assim Ghost, ele tá dando erro ao montar o list!!!!!!!!!!!!!!!!
ai vai o código.....
rivate Sub Form_Load()
ListView1.LabelEdit = lvwManual
ListView1.GridLines = True
ListView1.Checkboxes = True
ListView1.HideSelection = False
ListView1.FullRowSelect = True ' seleciona toda linha
ListView1.Sorted = True
ListView1.View = lvwReport
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
Set Col = ListView1.ColumnHeaders.Add(, , "Cheque", 1200)
Set Col = ListView1.ColumnHeaders.Add(, , "Favorecido", 2552)
Set Col = ListView1.ColumnHeaders.Add(, , "Valor", 1200)
datchequesemcompensar.DatabaseName = App.Path & "fretes.mdb"
datchequesemcompensar.RecordSource = "Select cheque,sum(valor) from cheque WHERE compensado=False Group by cheque"
datchequesemcompensar.Refresh
datchequesemcompensar.Recordset.MoveMin
Do While Not datchequesemcompensar.Recordset.EOF
Set lin = ListView1.ListItems.Add(, , (datchequesemcompensar.Recordset!cheque))
lin.SubItems(1) = datchequesemcompensar.Recordset!favorecido
lin.SubItems(2) = FormatCurrency(datchequesemcompensar.Recordset!valor)
datchequesemcompensar.Recordset.MoveNext
Loop
só q como a SQL nao ta pegando todos os dados da tabela cheque, ai ele nao encontrar o favorecido entendeu, so q se eu incluo o campo favorecido ele dá erro que falei, so q na realidade seria melhor ele pegar todos os campos no SQL EX.: SELECT * FROM......
é isso ai, qq coisa é so postar........q esclareço a sua duvida!!!
t+