如何在Excel中使用VBA返回SQL查询

通过SO上的几个线程，找不到足够的信息来解决我的问题。 我的工作簿中的一张表是我需要用SQL查询的表。 这是一个名为表。 这里是我在VBA中写的function：

Function getPowerPoints(eventID, resultTime) As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset strFile = ThisWorkbook.FullName strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _ & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Open strCon strSQL = "SELECT max(POINTS) FROM PowerPoints WHERE EVENT = " & eventID & " and TIME >= " & resultTime ''Named range rs.Open strSQL, cn getPowerPoints = rs.GetString cn.Close Set rs = Nothing Set cn = Nothing End Function 

当我尝试在我的工作表中使用该函数时，我只是得到一个#NAME? 错误，没有任何有用的消息。 我如何开始debugging呢？