objConnect.ConnectionString = _
  "Persist Security Info=False;
   Integrated Security=SSPI;database=db1001ya;
   server=localhost"
          ~~~~~~~~~
              ↑この箇所を書き換える

画面1：テキストボックスに削除したい商品の商品IDを入力する

画面2：[検索]ボタンをクリックすると該当する商品名が表示される

画面3：削除の確認ダイアログが表示される
（ここでは[はい]をクリック）

画面4：SQL発行後に削除の再確認ダイアログが表示される
（[いいえ]をクリック）

画面5：削除が取り消される

     objCommand.CommandText = strSql
     If objCommand.ExecuteNonQuery >= 1 Then     ' 削除実行
       If MsgBox("本当に削除しますか？", _
          MsgBoxStyle.Question.YesNo, "削除の再確認") _
          = MsgBoxResult.Yes Then

 ' ------------------------------------------------

 ' 削除処理（対象レコードはグローバル変数から取得）

 ' ------------------------------------------------

 Private Sub btnDelete_Click _

  (ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles btnDelete.Click
   Dim objConnect As New SqlConnection
   Dim objCommand As New SqlCommand
   Dim strMessage As String
   Dim strSql As String
   
   ' 削除用の接続文字列を設定
   strSql = _
     "DELETE 商品_dmy WHERE 商品ID = " & strTargetId

   ' ユーザー宛の確認メッセージ
   strMessage = "商品ID:" & strTargetId & vbCrLf & _
                "品名:" & strTargetName & vbCrLf & _
                "を削除します。よろしいですか？"

   ' 未検索時には処理を行わない
   If (strTargetId = "") Or (strTargetName = "") Then
     MsgBox("商品が特定されていません。", _
       MsgBoxStyle.OKOnly, "商品エラー")
     Exit Sub
   End If

   ' ユーザーに削除の確認を求める
   If MsgBox(strMessage, MsgBoxStyle.YesNo, "削除の確認") _
     = MsgBoxResult.No Then
     Exit Sub
   End If

   Try
     ' 接続文字列の設定
     objConnect.ConnectionString = _
       "Persist Security Info=False;Integrated Security=SSPI;" & _
       "database=db1001ya;server=localhost"
     ' コネクションの設定
     objCommand.Connection = objConnect
     ' 接続を開く
     objConnect.Open()
 
     ' トランザクション開始 ------------------------------(a)
     objCommand.CommandText = "BEGIN TRANSACTION"
     objCommand.ExecuteNonQuery()
     
     ' SQLの設定
     objCommand.CommandText = strSql
	 
     If objCommand.ExecuteNonQuery >= 1 Then     ' 削除実行
       If MsgBox("本当に削除しますか？", _
          MsgBoxStyle.Question.YesNo, "削除の再確認") _
          = MsgBoxResult.Yes Then
		   
       ' コミット（削除を確定） ------------------------(b)
         objCommand.CommandText = "COMMIT TRANSACTION"
         objCommand.ExecuteNonQuery()
         MsgBox("削除しました。", MsgBoxStyle.OKOnly, "削除完了")
         
       Else    ' ロールバック（削除を取消） --------------(c)
       objCommand.CommandText = "ROLLBACK TRANSACTION"
         objCommand.ExecuteNonQuery()
         MsgBox("削除を取り消しました。", MsgBoxStyle.OKOnly, "削除取消")
       End If

       InitForm()  ' 再実行に備えてテキストボックスとグローバル変数を初期化
     Else    ' 検索失敗
       MsgBox("該当する商品が見つかりません。", _
              MsgBoxStyle.OKOnly, "検索エラー")
       Exit Sub
     End If

   Catch objExcept As Exception  ' 例外処理
     MsgBox(objExcept.ToString, MsgBoxStyle.OKOnly, "DBエラー")

   Finally
     ' 接続を閉じる
     If Not objConnect Is Nothing Then
       objConnect.Close()
     End If
   End Try
 End Sub