Всем, доброго времени суток!

Помогите, пожалуйста разобраться новичку.
Пытаюсь запустить хранимую процедуру на Firebird 2.5 из VBA через ODBC.
Процедура должна возвращать набор записей (запущенная в IBExpert с теми же параметрами она выдает порядка 100 строк).
в VBA получаю recordset c одной записью.
Sub Test()

Dim connection As ADODB.connection
Dim rs As Object
Dim cmd As Object

Set connection = New ADODB.connection
connection.CursorLocation = adUseClient
connection.CommandTimeout = 0
connection.Open "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey; DBNAME=C:\Bases\20170405\sandro2017.fdb;"
Set cmd = New ADODB.Command
cmd.ActiveConnection = connection
cmd.CommandTimeout = 0
cmd.CommandText = "FS_REP_JEFF_ALL"
cmd.CommandType = adCmdStoredProc
cmd.NamedParameters = True
cmd.Parameters.Item("XDATE").Value = "06.04.2017"
Set rs = cmd.Execute()
MsgBox rs.GetString(adClipString, 1, ",", ",", "NULL")
Cells(1, 1).CopyFromRecordset rs

connection.Close
Set connection = Nothing
Set rs = Nothing
End Sub

Гаджимурадов Рустам

Огромное спасибо!
Переделал код. Все работает!

Set rs = New ADODB.Recordset
rs.ActiveConnection = connection
rs.Source = "Select * from FS_REP_JEFF_ALL('06.04.2017')"
rs.Open
Cells(1, 1).CopyFromRecordset rs