Visual Basic - el datareport no se refresca

Tenggo un listado en el que introduzco un código y me lista todos sus movimientos, pro el problema es que al aparecer el data report no me muestra nada y en la base de datos al que esta enlazado si aparecen registros. Si le doy el mismo codigo otra vez y le vuelvo a mandar ya si que aparece. Porque no se me refresca correctamente? Un ayuda porfavor

El codigo que tiene al mostrar es este

historico.Sections("Sección2").Controls("Etiqueta3").Caption = Text1.Text
historico.Sections("Sección2").Controls("Etiqueta5").Caption = nombre
historico.Refresh
historico.Show
historialde.rsCommand1.Requery

Prueba en el evento Terminate del DataReport cerrar el recordset o consulta que envia la informacion cerrarla. Ejemplo
Private Sub DataReport_Terminate()
If DataEnviroment.MiRecordset.State = adStateOpen Then DataEnviroment.MiRecordset.Close
End Sub