主题：怪事！求助

开发版用户。今天对开发的一个系统做更改。其中有几句代码放到窗口作为单击事件触发时，无法运行。真是奇了怪了！

代码应该没有问题（将这几句代码复制到命令窗口，运行正常）。

代码很简单：

Dim txl As String
If InputValue(txl, "请输入!", "请输入要删除的通讯录:") Then
DataTables("任务").DeleteFor("[通讯录名称] ='"& txl &"'")
End If

请高手帮忙！