Dim cmd As New SQLCommand Dim dt As DataTable 'Dim dr As DataRow = e.DataRow cmd.C cmd.CommandText = "SELECT * From {员工信息库} Where [姓名] = '" & User.Name & "'" dt = cmd.ExecuteReader If dt.DataRows.Count > 0 Then Else messagebox.show("此账户已停用!") Syscmd.Project.Exit() End If