Открытие в скрипте через excel набора записей - VB

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

Подскажите пожалуйста.Можно ли сделать след образом?
Есть dbf файл с набором записей.Нужно из него выбрать нужные и открыть в excl.Создать обьект"excel application" ,сделать запрос -это все понятно.А вот чтобы увидеть результат этого запроса в экселе?

Решение задачи: «Открытие в скрипте через excel набора записей»

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

                            <font color="blue">Public</font> <font color="blue">Function</font> GetMyRecordset(<font color="blue">ByRef</font> ioobjConn <font color="blue">As</font> ADODB.Connection, _
                                                 <font color="blue">ByVal</font> pstrMyPar <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> Recordset

    <font color="blue">Const</font> METHOD_NAME <font color="blue">As</font> <font color="blue">String</font> = <font color="teal">"GetMyRecordset"</font>

    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> MethodExit

    <font color="blue">Dim</font> objCmd <font color="blue">As</font> <font color="blue">New</font> ADODB.Command
    <font color="blue">Dim</font> objRcrdst <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
    <font color="blue">Dim</font> strSQL <font color="blue">As</font> <font color="blue">String</font>
    
    <font color="blue">Set</font> objCmd.ActiveConnection = ioobjConn
    
    strSQL = <font color="teal">"SELECT  * "</font> & vbCr & _
                   <font color="teal">"FROM Titles"</font> & vbCr & _
                   <font color="teal">"WHERE PubID< "</font> & pstrMyPar & <font color="teal">";"</font>
                   
    objCmd.CommandType = adCmdText
    objCmd.CommandText = strSQL
    
    <font color="blue">Set</font> objRcrdst = objCmd.Execute
    <font color="blue">Set</font> GetMyRecordset = objRcrdst

MethodExit:

    <font color="blue">If</font> Err.Number <> <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
        MsgBox <font color="teal">"Error "</font> & CStr(Err.Number) & <font color="teal">" in "</font> & METHOD_NAME & vbCr & Err.Description
    <font color="blue">End</font> <font color="blue">If</font>

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