在使用 Sum 函数之前，需先检查待求和的值是否为空。可以通过以下代码示例解决该问题：

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM table", cnn

Dim sumValue As Double
If Not rs.EOF Then
    sumValue = rs.Fields("column").Value
    While Not rs.EOF
        If Not IsNull(rs.Fields("column").Value) Then
            sumValue = sumValue + rs.Fields("column").Value
        End If
        rs.MoveNext
    Wend
End If

rs.Close

在上述代码中，我们首先打开 ADODB.Recordset 并查询一张表，然后使用循环遍历每一条记录。在遍历的同时，我们检查每个待求和的值是否为空。如果不为空，就将其加入总和中。最后关闭 Recordset 并得到求和结果。

需要注意的是，上述代码示例中的 column 为待求和的列名。根据实际需求，可能需要更改该名称。