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