Remove database

Dear All,

I need to remove from users machines one database, so i made smal button with this code:

"Sub Click(Source As Button)

Dim db As New NotesDatabase( "", "" )

If db.OpenByReplicaID( "", "C1256D67005034B3" ) Then

    Call db.Remove

    Messagebox  "..was successfully removed", MB_OK,"Info"

Else

    Messagebox "Unable to remove..", MB_OK, "Info"

End If   

End Sub"

And it works but with small trick: database icon stays on workspace nad of course entry on replicator page stays too.

Can somebody help with it?