Muy urgente. FlexGrid con DB en Visual.

[minerva]

Tengo un problemita con este código. Me carga los registros de la DB en la FlexGrid, pero se carga los anteriores...Ayuda y gracias.

Private Sub cargarAccesosPorOficinas_fgr4(fgr4 As MSFlexGrid, rs2 As ADODB.Recordset)

'la funcion es para cargar los accesos que existen a las oficinas en la flex
On Error GoTo tratar_error
'esto para controlar errores

Dim lngerror As Long
Dim strmsgerror As String
Dim i As Integer
Dim intprimero As Integer
Dim intultimo As Integer
Dim rs3 As ADODB.Recordset

'i es igual a la fila donde hago doble click
i = fgr4.RowSel

intoficina = ObtenerCodigo2(fgr4.TextMatrix(i, 0))
'obtiene el codigo de la fila seleccionada para calcular los accesos

Set rs3 = objInformacion.AccesosPorOficinas(txtInicial, txtFinal, intoficina, lngerror, strmsgerror)
'Calcula los accesos metiendo las fechas y el codigo obtenido antes
Do


fgr4.TextMatrix(fgr4.RowSel + 1, 0) = rs3("nombredll").Value
'carga el primero: nombre de la dll
fgr4.TextMatrix(fgr4.RowSel + 1, 1) = Format(rs3("Num_Accesos").Value, "##,##0")
'carga el primero:numero de accesos
rs3.MoveNext
'movemos al siguiente
fgr4.Refresh
'esto lo puse por poner
fgr4.RowSel = fgr4.RowSel + 1
'esto me situa en la siguiente fila
fgr4.Rows = fgr4.Rows + 1
'esto me añade una fila mas

Loop While Not rs3.EOF
'mientras que no sea el final
Exit Sub

tratar_error:
lngerror = Err.Number
strmsgerror = Err.Description
If lngerror <> 0 Then
MsgBox ("AccesosPorOficinas: " & Err.Number & Err.Description)
'me muestra el fallo que tengo
End If

End Sub