Visual Basic - Error al ejecutar una función de SQLServer

Hola Gente....

Les escribo porque estoy teniendo un problema que me está comiendo la cabeza. Tengo una función en una base SQLServer, que devuelve un conjunto de datos. cuando quiero crear un recordset de ADO desde VB con esa función, se queda un largo rato, y me termina dando un error en tiempo de ejecución (-2147217871 "Terminó el tiempo de espera"). He probado con hasta 160 seg. en los timeout, pero nada funciona.

Les aclaro que puedo conectarme a la base perfectamente, y que la función también funciona, ya que la pruebo desde el QueryAnalyzer y anda OK.

acá les mando el código con el que estoy probando:

Private Sub Command7_Click()
Dim cn As New ADODB.Connection
Dim sql As String
Dim rs As New ADODB.Recordset

cn.ConnectionTimeout = 160
cn.CommandTimeout = 160
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=5s2r_cl1r3n;Persist Security Info=True;User ID=user_inmuebles;Initial Catalog=Inmuebles;Data Source=AGSMS-TPDB03"
cn.Open
sql = "SELECT * FROM dbo.F_Totales_ClarinGlobal('20060801','20060801')"


rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenStatic, adLockReadOnly

MsgBox "fin"

End Sub

por favor, si pueden darme una mano sobre qué estoy haciendo mal, desde ya se los voy a agradecer.

Saludos!