TDBGridでデータアクセスエラーをなくすには？

以下のような記述で、TDBGridに入力後、Enterキーをクリックしなかったり
Form上のButtonなどにフォーカスを移動すると、
『6160  データアクセスエラー』が表示されます。
エラーメッセージをなくすにはどうしたらよいでしょうか。

よろしくお願い致します。

Private Sub tdbgrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
    '入力値チェックを行なう
    'TDBGridの値を書き換える
    
    Me.tdbgrid1.Refresh
    Exit Sub
    
End Sub

Private Sub tdbgrid1_Validate(Cancel As Boolean)
    Me.tdbgrid1.Update  ←１行ずつ進めると、ここは通りませんでした。
    Exit Sub
End Sub