Visual Basic - DAta Report

Tengo un Probelma con el DAta Report este es el codigo que tengo dentro de un boton de comand
DataEnvironment1.Pedido RSPedidos!IdPedido
DRPedido.Refresh
DRPedido.Show 1

cuando presiono el boton la primera ves sale muy bien, pero a la segunda vez sale "La Operqacion no esta permitida porque el objeto esta abierto"

Creo que me falta una linea mas por alli, alguien me puede ayudar xfavor.....

la verdad es muy extraño lo que hichiste pero en fin debajo de
DRPedido.Show
RSPedidos.close

pregunta antes en el dataenviroment el la propiedad recordset si el valor de el metodo open = 1
if rs.state=1 then rs.close
rs.open "Tu cadena de conexion"
set datareport1. datasource=rs
Saludos