With dbfConn
        .Provider =  "Microsoft.Jet.OLEDB.4  .0 "
        .Properties( "Extended Properties" ) =  "dBase IV" 
        .Properties( "Data Source" ) = pathToArc
        .Open
    End With
'.....................
    Set dbfRS = New ADODB.Recordset
    Set dbfRS.ActiveConnection = dbfConn
    
    With dbfRS
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "SELECT * FROM PAYORDERS"
        DoEvents
        For k = 1 To N
            .AddNew
            .Fields(0) = v(k).SeqNo
'...................
        .Update
        Next k
    DoEvents
    Debug.Print  "Before Close" 
        Dim pP As ADODB.Property
        For Each pP In .Properties
            Debug.Print pP.Name & Chr (9 ) & pP.Value
        Next pP
        Set .ActiveConnection = Nothing
    Debug.Print  "After Close" 
        For Each pP In .Properties
            Debug.Print pP.Name & Chr (9 ) & pP.Value
        Next pP