删除功能的代码是什么呢？解决方法

删除功能的代码是什么呢？
Private Sub Command1_Click()
 Dim rs As New ADODB.Recordset
  Dim sql As String
  Dim UserID As String
  Dim UserName As String
  Dim UserPwd As String
  
  
  UserPwd = Trim$(Text2.Text)
  
  sql = "select * from 员工表 where 姓名='UserPwd'"
  rs.Open sql, cn, adOpenStatic, adLockOptimistic
  '如何用户ID已经存在则退出
' If Not rs.BOF Then
' MsgBox "该用户已存在!", , "提示"
' rs.Close
' Set rs = Nothing
' Exit Sub
' End If
  
  '添加记录
  rs.AddNew
  rs("工号") = Trim$(Text1.Text)
  rs("姓名") = UserPwd
  rs("部门") = Trim$(Combo1.Text)
  rs("职务") = Trim$(Text5.Text)
  rs("入职日期") = Trim$(Text4.Text)
  rs("工种") = Trim$(Text6.Text)
  rs("班组") = Trim$(Text7.Text)
  rs.Update
  
  rs.Close
  Set rs = Nothing
  MsgBox "添加成功!", , "提示"
  '清空界面
  Text1.Text = ""
  Text2.Text = ""
  Text4.Text = ""
  Text5.Text = ""
  Text6.Text = ""
  Text7.Text = ""
  Combo1.Text = ""

End Sub


这个是添加员工的 代码 请问 删除员工的代码怎么写呢 比如根据 text1里面输入姓名 然后删除数据表里面相对应名字的记录

[解决办法]

VB code

Dim Name As Stringdim answer  as strintDim rs As New ADODB.RecordsetName  = Trim(text1.text)answer = MsgBox("确定要删除【" & a & "】这条记录吗？", vbYesNo, "询问")If answer = vbYes Then   sql = "delete from 员工表 where 姓名='" & Name   & "'"   rs.Open sql, cn, 1, 3'conn 变量装载的是你连库的字符串end if