发布成功了，只是换了一台电脑就可以了。

把myr作为private成员变量写在Sub Command3_Click()外面
Set myrs = mycon.Execute("select * from book")修改为
if myrs is nothing then Set myrs = mycon.Execute("select * from book")