Нужна помощь - VB

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

Помогите разобраться с кодом, никак не пойму:
Программка достает имена БД из MS SQL и должна добавить их в combobox. Причем количество записей в label верное, а вот combobox пуст.

Private Sub Command1_Click()
Dim SVRname, DBname, Zapros As String
Dim MSGBX, DBnumber, i As Integer
SVRname = Text1.Text
If SVRname = "" Then
    MSGBX = MsgBox("Error", vbOKOnly, "Warning")
    Exit Sub
End If
Set CONN = New ADODB.Connection
Set RCD = New ADODB.Recordset
Zapros = "select NAME from sys.databases"
CONN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=" + SVRname
On Error Resume Next
CONN.Open
If Err Then
    Err.Clear
    MSGBX = MsgBox("Error!", vbOKOnly, "Warning")
    Text1.Text = ""
    Form1.Enabled = True
End If
RCD.CursorLocation = adUseClient
RCD.CursorType = adOpenStatic
RCD.Open Zapros, CONN
DBnumber = RCD.RecordCount
Label2.Caption = "DBnumber = " & DBnumber
For i = 1 To DBnumber
Combo1.AddItem RCD.GetRows(DBnumber)
Next i
RCD.Close
CONN.Close
Set RCD = Nothing
Set CONN = Nothing
End Sub

Решение задачи: «Нужна помощь»

textual
                            Листинг программы 
                        
                            For i = 1 To DBnumber
  Combo1.AddItem RCD("Имя_поля").Value
Next i