主题：学习自定义用户遇到的问题！

删除用户代码：

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
    Dim UserName As String = lst.SelectedItem
    Dim cmd As New SQLCommand
    cmd.ConnectionName = "User"
    cmd.CommandText = "Delete From {Users} Where [Name] = '" & UserName & "'"
    cmd.ExecuteNonQuery
    lst.Items.RemoveAt(lst.SelectedIndex)
End If

想做个提示：确认删除该用户吗？

该如何添加代码。