datagrid添加数据报错

大神快来救救我吧
我用的datagrid+adodc+SQL
问题是这样的，点击添加，datagrid.Allowaddnew = True，正常添加数据没问题。
但是如果点击添加后还没有录入数据，如果这时候点击datagrid的其他非编辑区就会报错如图三，因为我的SQL设置了非空列，
到这里程序就不能正常运行下去了
有没有办法把这个错误屏蔽掉，自己设一个错误提示及取消添加？
我试着在datagrid.click事件里加On Error GoTo Handle语句，但是调试的时候我发现程序刚触发这个事件就报错图三了，根本到不了On Error GoTo Handle





Private Sub Command1_Click()    '添加
  On Error GoTo Handle1   '连续点添加时报错
  DG1.AllowDelete = True
  DG1.AllowUpdate = True
  Adodc_zj.Recordset.AddNew
  Exit Sub
Handle1:
  Call StrErr
End Sub