Muchas Gracias, le hice algunos arreglos al codigo y me funciono
Una preguntita: Como puedo darle formato a un campo mostrado en el datagrid, en este caso Monto y Saldo por ejemplo: 10000 que se muestre asi 10.000(miles)
Este es el codigo:
Dim Monto As Double
Dim Monto2 As Double
Dim Consulta As String
Monto = 0
Set RsTemp = Nothing
RsTemp.Fields.Append "Num Operacion", adSingle
RsTemp.Fields.Append "Monto", adDouble
RsTemp.Fields.Append "Saldo", adDouble
RsTemp.Open
Set dgDocumentosCartera.DataSource = RsTemp
dgDocumentosCartera.Columns(0).Width = 2400
dgDocumentosCartera.Columns(1).Width = 1500
dgDocumentosCartera.Columns(2).Width = 2000
Consulta = "select noperacion,monto from cartera where estado='add' or estadoprorroga='prorroga'"
Set Cartera = Cnn.Execute(Consulta)
Do Until Cartera.EOF
Monto2 = Cartera(1)
RsTemp.AddNew
RsTemp(0) = Cartera(0)
RsTemp(1) = Cartera(1)
RsTemp(2) = Monto + Monto2
Monto = Monto + Monto2
RsTemp.Update
Cartera.MoveNext
Loop
EL RECORSET RsTemp lo declare en un modulo aparte donde declaro todos mis recorset
Public RsTemp As New ADODB.Recordset
With RsTemp
.ActiveConnection = Cnn
.LockType = adLockReadOnly
.CursorType = adOpenStatic
End With
