在公共模块中定义了下面的函数！

Public Sub deldata(ByVal tn As String)
'删除表中所有记录,对oper表添加一个系统用户
Dim sql As String
sql = "delete" & Trim$(tn)
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\毕业设计\kh.mdb;Persist Security Info=False"
conn.Open
conn.Execute sql 'VB发现错误指示的语句！！！！！！！
If Trim(tn) = "oper" Then
sql = "insert oper values('1234','1234','系统管理员')"
conn.Execute sql
End If
conn.Close
End Sub

在后面的一个窗体中的一个命令按钮中调用了该函数！

Private Sub Command4_Click() '初始化命令按钮
If MsgBox("本功能要清除系统中所有数据,真的初始化吗?", vbYesNo, "确认初始化操作") = vbYes Then
Call deldata("khb")
Call deldata("zwb")
Call deldata("lxb")
Call deldata("oper")
MsgBox "系统初始化完毕,下次只能以1234/1234(用户名/口令)进入本系统", vbOKOnly, "信息提示"
End If
End Sub

可是运行时
实时错误 '-2147217900(8004Oe14)':
无效的SQL语句,期待'DELETE','INSERT','PROCEDURE','SELECT',或'UPDATE'.

VB指示错误的语句是 conn.Execute sql