>>570
以下に現在の環境を記します
■使用しているDB : Access2007 accdb形式

■SQL文の発行と実行
'カレントフォルダのbase.accdbに接続する
Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
"provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & apppath & "\base.accdb;")
Dim SQLCm As OleDb.OleDbCommand = cn.CreateCommand

　　　　　　'SQL文の組み立てと実行（selectptnはID）
SQL = "DELETE * FROM asset WHERE patternid=" & selectptn
SQLCm.CommandText = SQL
cn.Open()
SQLCm.ExecuteNonQuery()

■この後実行するFillメソッド
Me.TableAdapterManager.UpdateAll(Me.Baseset)

このあと実行するFillメソッドの前にmessagebox.showが１つあるのですが、出て直ぐ押す
と同時実行違反になり、数秒待ってから押すと問題なく終了するという具合です。

SQL文の実行が終わるのを待ってから、Fillメソッドを実行するようなことができたら良いの
ですが（Do While 文をつかった何もしないループにエラートラップをまぜたものを使ってみた
のですが、いまいちうまくいかなくて）