收银秤什么牌子好:关于conn.execute中执行SQL语言

关于conn.execute中执行SQL语言中语法错误的解决方法，有高手知道的能帮助小弟，急需了解~~~拜托大家，谢谢大家了！
以下是一个多文档窗体的一段初始化代码：
Private Sub menu32_Click()
If MsgBox("本功能要清除系统中所有的数据，真的初始化吗？", vbYesNo, "确认初始化操作") = vbYes Then
Call deldata("student")
Call deldata("prof")
Call deldata("classn")
Call deldata("course")
Call deldata("degree")
Call deldata("oper")
MsgBox "系统初始化完毕，下次只能以1234/1234（用户名/密码）进入本系统", vbOKOnly, "信息提示"
End If
End Sub
这个在调用公用模块的时候：
Public Sub deldata(ByVal tn As String)
Dim sql As String
sql = "delete " & Trim$(tn)
Set conn = New ADODB.Connection
conn.ConnectionString = "DSN=STUD;UID=sa;PWD=;"
conn.Open
conn.Execute sql
If Trim(tn) = "oper" Then
sql = "insert oper values('1234','1234','系统管理员')"
conn.Execute sql
End If
conn.Close
End Sub
其中的conn.Execute sql这一句说，delete语法错误。
这是为什么呢？(所用数据库是Access)