ADODB.Connection - VB

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

Я открываю соединение в VB 6.0 с помощью:
Dim strconn As New ADODB.Connection
strconn.Open "dsn=inet"
Когда я делаю простую выборку селектом из таблицы и хочу открыть набор записей,появляется ошибка,что драйвер Visual FoxPro не поддерживает требуемые свойства.
Источник данных ODBC у меня для Visual Foxpro , free table directory.

Решение задачи: «ADODB.Connection»

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

                            <br>Dim connPr <font color="blue">As</font> New ADODB.Connection
<br><font color="blue">With</font> connPr
<br>    .CursorLocation = adUseClient
<br>    .Mode = adModeReadWrite
<br>    .Provider = <b><font color="green">"MSDASQL"</font></b>
<br>    .<font color="blue">Open</font> <b><font color="green">"DSN=Prodag;UID=sa;PWD=;"</font></b>
<br><font color="blue">End</font> <font color="blue">With</font>
<br><font color="green">'
<br>Dim fpSF As New ADODB.Recordset, NSf As Long
<br>With fpSF
<br>    .CursorLocation = adUseClient
<br>    .CursorType = adOpenDynamic                 '</font> (
<br>    .LockType = adLockBatchOptimistic
<br>    .<font color="blue">Open</font> <b><font color="green">"<font color="blue">SELECT</font> kod_tov <font color="blue">AS</font> [KTov], "</font></b> & _
<br>          <b><font color="green">"       vupis_d <font color="blue">AS</font> [KolPr],  "</font></b> & _
<br>          <b><font color="green">"       lock <font color="blue">AS</font> [DOp]  "</font></b> & _
<br>          <b><font color="green">"<font color="blue">FROM</font> PRODAG  "</font></b> & _
<br>          <b><font color="green">"<font color="blue">WHERE</font>       (vid_oper=<font color="green">'СЧЕТ_Ф'</font>) "</font></b>, connPr
<br>    <font color="blue">Set</font> .ActiveConnection = Nothing     <font color="green">'
<br>    connPr.Close                        '</font> fpSF - отключенный набор данных
<br><font color="green">'   ......
<br>    .Close                                  '</font>рекордсет, связанный с dbf-таблицей.
<br><font color="blue">End</font> <font color="blue">With</font>
<br>
                        