Пожалуйста, помогите начинающему.
Есть 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

Неужели нет никаких соображений.

Спасибо, но, к сожалению, результат тот же.
Проблема не в recordset (его можно открыть как угодно), проблема в том, что не заполняется datacombo.

With dcb1
.ListField = rstNameRoom.Fields(1).Name
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

Результат отрицательный.

А вот с combobox никаких проблем.

With rstNameRoom
.MoveFirst
Do Until .EOF
cmbNameRoom.AddItem .Fields(1)
.MoveNext
Loop
'.Close
End With