[求助]VB删除数据库表字段问题！
If MsgBox("是否删除用户" + Trim(Text1.Text) + "？", vbYesNo, "确认信息") = vbYes Then SQL = "delete from 用户信息表 where 用户名='" + Trim(Text1.Text) + "'"
drs.CursorLocation = adUseClient
drs.Open SQL, dconn, adOpenStatic, adLockReadOnly
MsgBox "成功删除！", vbInformation + vbOKOnly, "提示信息"
上面的代码只能提示删除成功，不管有没有这个用户都成功，请问一下，要加什么代码才能使它变成当没这个用户的时候就提示没用户名？如果有就删除成功？
