不要它显示 工程1

response = MsgBox("数据已被更改，需要保存吗？", vbYesNo, "保存数据")
If response = vbYes Then
Call Command1_Click
End If

点击右边属性框上方第一行的"工程",将下面的"(名称)工程1"直接改过来;
如果还想将属性第一行工程后面的(工程)名也改,将文件菜单打开,选工程另存为就可以改了.

看看msdn....msgbox有参数可以设置的..