Adodc控件的添加记录有关问题

Adodc控件的添加记录问题
本来是做asp.net的,帮朋友用VB6写一个小的CS软件,这两天熟悉了一下,虽然很多东西不难理解,但一时之间找到原因还真不好找。
我用Adodc控制实现增删改查的功能,在增加时,先要用到AddNew,在DataGrid里增加一行,如果没有输入数据再点击一次按钮,会报错“无法插入空行”

Private Sub Command1_Click()
    On Error Resume Next
    Adodc1.Recordset.AddNew
    Exit Sub
End Sub

我目前是用这种方法解决的,有没有好点的办法,手工控制进行提示呢?

------解决方案--------------------
现在的方法可以。另外一种:

Dim blnAdding As Boolean
Private Sub Command1_Click()
    If blnAdding Then Exit Sub
    Adodc1.Recordset.AddNew
    blnAdding = True
End Sub

当在其他过程中完成记录 Update 时,记得设置 blnAdding = False