'函数名称:删除用户信息 '参数:ID 字符串,用户ID 字符串,用户表的名称 字符串,数据库连接对象 ADODB.Connection Function DeleteUserInfo(ID,UsID,TbName,con) Dim tSql tSql=""Delete * from "&TbName&" where" IF ID<>"" Then con.Execute(tSql&" id="&ID) Else con.Execute(tSql&" userid='"&UsID&"'") End IF End Function '执行这个函数即可删除。