VB.NET SQL错误删除语句

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        Dim connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"
        Dim sql As String = "DELETE FROM YourTable WHERE YourCondition"

        Try
            Using connection As New SqlConnection(connectionString)
                connection.Open()

                Using command As New SqlCommand(sql, connection)
                    Dim rowsAffected As Integer = command.ExecuteNonQuery()

                    If rowsAffected > 0 Then
                        MessageBox.Show("删除成功！")
                    Else
                        MessageBox.Show("未找到匹配的记录。")
                    End If
                End Using
            End Using
        Catch ex As SqlException
            MessageBox.Show("SQL错误：" & ex.Message)
        Catch ex As Exception
            MessageBox.Show("发生错误：" & ex.Message)
        End Try
    End Sub
End Class