Por otro lado, no se porque me aparece una columna extra donde me hace un conteo de las rows que no necesito.
objGridView.Header = rstResultado.Fields.Count
objGridView.Columns[0].Title = ""
objGridView.Columns[1].Title = ""
objGridView.Columns[2].Title = ""
objGridView.Columns[3].Title = "Data"
objGridView.Columns[4].Title = "Concepte"
objGridView.Columns[5].Title = "Import"
objGridView.Columns[6].Title = "Saldo"
objGridView.Columns[0].width = 0
objGridView.Columns[0].Resizable = False
objGridView.Columns[1].width = 25
objGridView.Columns[1].Resizable = False
objGridView.Columns[2].width = 120
objGridView.Columns[2].Resizable = False
objGridView.Columns[3].width = 250
objGridView.Columns[3].Resizable = False
objGridView.Columns[4].width = 90
objGridView.Columns[4].Resizable = False
objGridView.Columns[5].width = 100
objGridView.Columns[5].Resizable = False
' Alineación derecha
objGridView.Columns[5].Alignment = 2
objGridView.Columns[6].width = 100
objGridView.Columns[6].Resizable = False
' Alineación derecha
objGridView.Columns[6].Alignment = 2
'::::::::::::::::::::::::::::::::::::::::::::::::::::
objGridView.Rows.Count = 0
rstResultado.MoveFirst
Do While rstResultado.Available
objGridView.Rows.Insert(i, 1)
objGridView[i, 0].Text = rstResultado!ID
objGridView[i, 1].Picture = mConst.picEdit
objGridView[i, 2].Picture = mConst.picBorrar
objGridView[i, 3].Text = mFunction.FormatDate(rstResultado!FECHA)
objGridView[i, 4].Text = rstResultado!CONCEPTO
objGridView[i, 5].Text = mFunction.FormatDecimal(rstResultado!IMPORTE)
objGridView[i, 6].Text = mFunction.FormatDecimal(rstResultado!SALDO)
i += 1
rstResultado.MoveNext
Loop
objGridView.Header = 7
objGridView.Columns.Width = -1
objGridView.Columns[0].Title = ""
objGridView.Columns[1].Title = ""
objGridView.Columns[2].Title = ""
objGridView.Columns[3].Title = "Data"
objGridView.Columns[4].Title = "Concepte"
objGridView.Columns[5].Title = "Import"
objGridView.Columns[6].Title = "Saldo"
objGridView.Columns[0].width = 0
objGridView.Columns[0].Resizable = False
objGridView.Columns[1].width = 25
objGridView.Columns[1].Resizable = False
objGridView.Columns[2].width = 120
objGridView.Columns[2].Resizable = False
objGridView.Columns[3].width = 250
objGridView.Columns[3].Resizable = False
objGridView.Columns[4].width = 90
objGridView.Columns[4].Resizable = False
objGridView.Columns[5].width = 100
objGridView.Columns[5].Resizable = False
' Alineación derecha
objGridView.Columns[5].Alignment = 2
objGridView.Columns[6].width = 100
objGridView.Columns[6].Resizable = False
' Alineación derecha
objGridView.Columns[6].Alignment = 2
'::::::::::::::::::::::::::::::::::::::::::::::::::::
objGridView.Rows.Count = 0
rstResultado.MoveFirst
Do While rstResultado.Available
objGridView.Rows.Insert(i, 1)
objGridView[i, 0].Text = rstResultado!ID
objGridView[i, 1].Picture = mConst.picEdit
objGridView[i, 2].Picture = mConst.picBorrar
objGridView[i, 3].Text = mFunction.FormatDate(rstResultado!FECHA)
objGridView[i, 4].Text = rstResultado!CONCEPTO
objGridView[i, 5].Text = mFunction.FormatDecimal(rstResultado!IMPORTE)
objGridView[i, 6].Text = mFunction.FormatDecimal(rstResultado!SALDO)
i += 1
rstResultado.MoveNext
Loop
objGridView.Header = 7
objGridView.Columns.Width = -1
Saludos.