新手求助，这个错在哪里？应该是挺简单的，可是我就是解决不了

Question

在运行到下面这段程序时，提示错误是：实时错误3001：参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。错误行：Set tRs = conn.excute(SQL)。下面是程序。先谢谢大家帮忙了。
Public Function delDatapeople(kaohao As String) As Boolean
Dim tRs As New ADODB.Recordset
Dim i As Integer
Dim sSql As String
Dim SQL As String
'On Error GoTo ErsSql = "职员信息表"
  
tRs.Open sSql, conn, 1, 2SQL = "delete from 职员信息表 where 职员卡号=  '" & kaohao & "'"Set tRs = conn.excute(SQL)tRs.Update
tRs.Close
Set tRs = Nothing
'MsgBox "数据入库成功！", vbOKOnly + vbInformation
delDatapeople = True
Exit Function
Er:
delDatapeople = False
End Function

Answer 1

感觉sSql = "职员信息表"  
tRs.Open sSql, conn, 1, 2这两句有点多余

Answer 2

Public Function delDatapeople(kaohao As String) As BooleanDim SQL As String
On Error GoTo Er
SQL = "delete from 职员信息表 where 职员卡号=  '" & kaohao & "'"conn.excute SQL'MsgBox "数据入库成功！", vbOKOnly + vbInformation
delDatapeople = True
Exit Function
Er:
delDatapeople = False
End Function

Answer 3

sSql = "职员信息表"
  
tRs.Open sSql, conn, 1, 2删掉试试看