Public Const con_ODBCConStr =  "DSN=Таблицы Visual FoxPro;UID=;PWD=;SourceType=DBF;Exclusive=No;BackgroundFetch=No;Collate=Machine;Null=No;Deleted=Yes;SourceDb=" 

Dim rs As Recordset, cnODBC As New Connection, rsTable As New Recordset
 Set rs = CurrentProject.Connection.Execute _
  ( "select bb.barcode,ba.price from balance ba inner join barcodes bb on ba.bkey=bb.bkey "  & _
    "where ba.PointID="  & iPointID)
 FileCopy con_WorkPath &  "db\pricelst.dbf" , con_WorkPath &  "temp\pricelst.dbf" 
 cnODBC.Open con_ODBCConStr & con_WorkPath &  "temp\" 
 rsTable.Open  "pricelst.dbf" , cnODBC, adOpenKeyset, adLockPessimistic, adCmdTable
 cnODBC.BeginTrans
 With rsTable
  Do While Not rs.EOF
   .AddNew
   !BAR = rs!barcode
   !Price = rs!Price
   .Update
   rs.MoveNext
  Loop
 End With
 cnODBC.CommitTrans
 rsTable.Close
 Set cnODBC = Nothing
 FileCopy con_WorkPath &  "temp\pricelst.dbf" , stCashSrvPath &  "pricelst.dbf"