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

hiro 2003-08-27 00:54:44 No: 108238

以下のような記述で、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