通过使用SQL更新closures的工作簿中的数据

我有一个封闭的工作簿，我试图将一些列值更新为空。 我正在使用ADO连接和SQL查询来更新工作表中的数据。 在这里，我将三列值设置为Null，但似乎不起作用。 我没有看到这里有什么问题。 任何帮助，将不胜感激！

谢谢！ 缺口

Public Function GenerateNext(SourceFile As Variant, SourceSheet As String, SourceRange As String) Dim rsCon As Object Dim rsData As Object Dim szConnect As String Dim szSQL As String szSQL = "UPDATE [" & SourceSheet$ & "$] SET [First] = NULL ;" On Error GoTo SomethingWrong Application.StatusBar = "Retrieving data ....." szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & SourceFile & ";" & _ "Extended Properties=Excel 8.0;" Set rsCon = CreateObject("ADODB.Connection") Set rsData = CreateObject("ADODB.Recordset") rsCon.Open szConnect 'Run the query as adCmdText rsData.Open szSQL, rsCon, 0, 1, 1 Exit Function SomethingWrong: MsgBox "Something Wrong" On Error GoTo 0 End Function