该怎样才能返回得数呢,请大家帮我解决一下,谢谢了!!!原函数如下:
   Function sum_table()
    matrix_server = "aa"
    matrix_base = "aa"
    u_id = ""
    u_pass = ""
   
    Dim ssql As String
    Dim Command5 As ADODB.Command
    Dim cn As ADODB.Connection
    Set Command5 = New ADODB.Command
    Set cn = New ADODB.Connection
    With cn
    .ConnectionString = "driver={SQL server};server=" + matrix_server + ";uid=" + u_id + ";pwd=" + u_pass + ";database=" + matrix_base + ""
    .Open
    .CommandTimeout = 30
    End With
    If (Option1.Value = True) Then
      ssql = "select sum(列1) from [表1]"
    ElseIf (Option2.Value = True) Then
      ssql = "select sum(列2) from [表1]"
    End If
    cn.Execute ssql
    cn.Close
 End Function