Sub testdb()
    Dim ConnStr As String
    Dim Conn, SQL$
    Dim Rs
   
    Set Conn = CreateObject("adodb.connection")
    Set Rs = CreateObject("adodb.recordset")
    Conn.Open "Driver={SQL Server};Server=localhost;database=Northwind;uid=sa;pwd=password"
   
    'SQL = "insert into Categories(CategoryName) values ('Test')"
    'SQL = "select CategoryID,CategoryName from Categories"
    SQL = "SELECT [Northwind].[dbo].[funtest]()"
    Set Rs = Conn.Execute(SQL)
   
    Sheets("Sheet1").Cells.ClearContents
    Sheets("Sheet1").Range("a2").CopyFromRecordset Rs
   
    Conn.Close
    Set Conn = Nothing
End Sub