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, "提示信息"
上面的代码只能提示删除成功，不管有没有这个用户都成功，请问一下，要加什么代码才能使它变成当没这个用户的时候就提示没用户名？如果有就删除成功？

那你就先select一下用户名..判断RecordCount..

能写详细点吗？我也是新手哦！

select 用户名 from 用户信息表 where 用户名='" + Trim(Text1.Text) + "'"
if Recordset.rocordcount=0 then
msgbox"There is no data"
exit sub
end if