現在VB6.0とアクセスを使用しております。
　　Set cn = New ADODB.Connection
Set sRs = New ADODB.Recordset
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & path
.Open
.CursorLocation = adUseClient
End With
strSQL = "SELECT Table.*FROM Table
sRs.Open strSQL, cn, adOpenStatic, adLockOptimistic
上記のように記述して[sRs]にレコードをセットしているのですが、
sRs.Delete
をした場合に下記のようなエラーがでます。この現象は一回Updateで
DBに登録して、その登録したものに対して削除かけようとしたら発生します。
でまた、プロジェクトを閉じて、再度実行してデリートすれば下記のエラーは発生しません。
このような経験のある方のアドバイスよろしくおねがいします。
実行時エラー21247217864
行がみつからなかったため、更新できません。列の値は最後に読み込まれた後で変更された可能性が
あります。

> strSQL = "SELECT Table.*FROM Table
> sRs.Open strSQL, cn, adOpenStatic, adLockOptimistic

原因は多分ここにあります。
------------------------------------------------------
adOpenStatic 静的カーソル。データの検索またはレポートの作成に使用するための、
レコードの静的コピーです。他のユーザによる追加、変更または削除は表示されません。
------------------------------------------------------

こっちにしてみてください。
------------------------------------------------------
adOpenDynamic 動的カーソル。他のユーザーによる追加、変更および削除を見ることができ、
プロバイダがサポートしないブックマークを除いて、レコードセットで許容されているすべて
の種類の移動を行うことができます。
------------------------------------------------------

> 実行時エラー21247217864
> 行がみつからなかったため、更新できません。列の値は最後に読み込まれた後で変更された可能性が
> あります。