Проблема со списком в ComboBox Exсel - VB

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

На листе Exсel создал объект ComboBox, который должен выдать список результата запроса к БД SQL Server. Проблема в том что при формировании списка Exсel ругается и говорит –

«Run-time error “6” Overflow

. Я предполагаю, что размер списка определенный и не может поместить весть результат запроса (порядка 30000 записей). Есть ли какие-то решения?

ComboBox1_DropButtonClick()

 rst  ADODB.Recordset
 con  ADODB.Connection
 Sheet1  Worksheet

 Sheet1 = ActiveSheet
 con =  ADODB.Connection
 rst =  ADODB.Recordset

ConnectionString =  + _

con. ConnectionString

rst.ActiveConnection = con

sqlString = 

rst. sqlString
i = 

   rst.EOF
 ComboBox1.AddItem
 ComboBox1.List(i) = rst.Fields().Value
 rst.MoveNext
 i = i + 

rst.
con.

 

Решение задачи: «Проблема со списком в ComboBox Exсel»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> ComboBox1_DropButtonClick()

<font color="00AA00">'Подключения к SQL Server </font>
<font color="blue">Dim</font> rst <font color="blue">As</font> ADODB.Recordset
<font color="blue">Dim</font> con <font color="blue">As</font> ADODB.Connection
<font color="blue">Dim</font> Sheet1 <font color="blue">As</font> Worksheet

<font color="blue">Set</font> Sheet1 = ActiveSheet
<font color="blue">Set</font> con = <font color="blue">New</font> ADODB.Connection
<font color="blue">Set</font> rst = <font color="blue">New</font> ADODB.Recordset

<font color="00AA00">'Строка подключения</font>
ConnectionString = <font color="teal">"Provider=SQLOLEDB;Data Source=KTK;"</font> + _
<font color="teal">"Initial Catalog=MAX101elek;user id=su;password=123"</font>
con.<font color="blue">Open</font> ConnectionString

rst.ActiveConnection = con

<font color="00AA00">'Запрос</font>
sqlString = <font color="teal">"SELECT rthed_item FROM rthed "</font>

rst.<font color="blue">Open</font> sqlString
i = <font color="darkblue"><b>0</b></font>

<font color="00AA00">' Заполнение ComboBox</font>
 <font color="blue">Do</font> <font color="blue">Until</font> rst.EOF
 ComboBox1.AddItem
 ComboBox1.List(i) = rst.Fields(<font color="darkblue"><b>0</b></font>).Value
 rst.MoveNext
 i = i + <font color="darkblue"><b>1</b></font>
 <font color="blue">Loop</font>
 
rst.<font color="blue">Close</font>
con.<font color="blue">Close</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        