VB新手求助 如何禁止新建空白的数据

每次点新建的话总会多出一条空白的数据 怎么取消掉？
新建按钮的语句如下
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
MsgBox "新建成功", vbExclamation + vbOKOnly, "提示"
End Sub
感谢各位！！！！ --------------------编程问答-------------------- 為何執行Data1.Recordset.AddNew,卻不給他的列賦值，用處何在？ --------------------编程问答-------------------- 在确定用户已经增加了合乎规则的数据后,再去addnew,并且立即把用户输入的数据更新到数据库.

如果你希望用户点一个"增加新数据"按钮之后再输入书籍,那么这个按钮应该弄个临时的数据出来,而不是去马上操作数据库addnew

补充：VB ,  基础类