VBA и SQL Server 2000

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

Ребята, следующая проблема. Подключаюсь к базе след. образом:

Как мне прочитать из таблицы

ALM

базы

FLINK

зн-е трех столбцов

ST1

ST2

ST3

типа

string

первой строки и сохранить их в массив либо в три переменные?

Решение задачи: «VBA и SQL Server 2000»

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

                            <font color="blue">Dim</font> wrk <font color="blue">As</font> Workspace
    <font color="blue">Dim</font> cnn <font color="blue">As</font> Connection
    <font color="blue">Dim</font> rst <font color="blue">As</font> Recordset
    <font color="blue">Dim</font> fld <font color="blue">As</font> Field
    <font color="blue">Dim</font> strConnect <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> strSQL <font color="blue">As</font> <font color="blue">String</font>
    
    strConnect = <font color="teal">"ODBC;DSN=MyFLink;UID=sa;PWD=;DATABASE=FLINK"</font>
    
    <font color="blue">Set</font> wrk = DBEngine.CreateWorkspace(<font color="teal">"NewODBCDirect"</font>, <font color="teal">"sa"</font>, <font color="teal">""</font>, dbUseODBC)
    
    <font color="blue">Set</font> cnn = wrk.OpenConnection(<font color="teal">"MFLnk"</font>, dbDriverNoPrompt, False, strConnect)
    
    <font color="blue">Set</font> rst = cnn.OpenRecordset(<font color="teal">"SELECT TOP 1 ST1,ST2,ST3 FROM ALM"</font>, _
      dbOpenSnapshot)
    
    <font color="blue">With</font> rst
        <font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> .EOF
           Debug.<font color="blue">Print</font> .Fields(<font color="darkblue"><b>0</b></font>) & <font color="teal">" "</font> & .Fields(<font color="darkblue"><b>1</b></font>) & <font color="teal">" "</font> & .Fields(<font color="darkblue"><b>2</b></font>)
           .MoveNext
        <font color="blue">Loop</font>
    <font color="blue">End</font> <font color="blue">With</font>
    
    rst.<font color="blue">Close</font>
    cnn.<font color="blue">Close</font>

    <font color="blue">Set</font> cnn = <font color="blue">Nothing</font>
                        