aki esta....puedes modificarlo
Código:
Public Function Bancos() As Recordset
Dim ConnectionString As String
Dim strsql As String
Dim rs As Recordset
ConnectionString="tu_dsn"
Set rs = CreateObject("ADODB.Recordset")
strsql = "exec sp_transBanco"
rs.Open strsql, ConnectionString, adOpenForwardOnly
Set Bancos = rs
End Function
;)