主题：[求助]修改代码，增加功能。（已解决）

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
    Dim UserName As String = lst.SelectedItem
    If UserName <> "开发者" Then
        Dim cmd As New SQLCommand
        cmd.C     '外部数据源
        cmd.CommandText = "Delete From {Users} Where [Name] = '" & UserName & "'"
        cmd.ExecuteNonQuery
        lst.Items.RemoveAt(lst.SelectedIndex)
        lst.Select()
    End If
End If