Datacombo и хранимая процедура SQL - VB

Формулировка задачи:

Пожалуйста, помогите начинающему.
Есть datacombo и хранимая процедура SQL., которая возвращает два поля в recordset.
С recordset все нормально, но datacombo пустой.
Где я ошибаюсь ?
Благодарю всех, кто откликнется.
Private Sub Form_Load()
Dim cnnZastroy As New ADODB.Connection
Dim cmmZastroy As New ADODB.Command
Dim strSQL As String
Const strConnect = "Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=Zastroy;" & _
"Data Source=s58nt04;" & _
"User Id = sa;" & _
"Password = sa_sql"
Dim rstNameRoom As New ADODB.Recordset
cnnZastroy.CommandTimeout = 15
cnnZastroy.Open strConnect
With cmmZastroy
Set .ActiveConnection = cnnZastroy
.CommandType = adCmdStoredProc
.CommandText = "sp_dcbNameRoom"
Set rstNameRoom = .Execute
End With
With dcb1
Set .RowSource = rstNameRoom
.RowMember = rstNameRoom.Fields(0).Name
.ListField = rstNameRoom.Fields(1).Name
.BoundColumn = rstNameRoom.Fields(0).Name
'dcb1.Text = rstNameRoom.Fields(1)
End With
End Sub

Решение задачи: «Datacombo и хранимая процедура SQL»

textual
                            Листинг программы 
                        

                            <font color="blue">Set</font> rstNameRoom=<font color="blue">New</font> ADODB.recordset
rstNameRoom.CursorLocation=adUseClient
rstNameRoom.<font color="blue">Open</font>  cmmZastroy,,adOpenStatic, adLockReadOnly
                        