Set conn = New ADODB.Connection
   conn.ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)};" & "DBQ=" & PathToDatabase & ";" & "DefaultDir=" & PathToDatabase & "\"
   conn.Open
   Set rst = New ADODB.Recordset
   rst.Open "SELECT * FROM " & basa, conn

   Dim p_FIO, p_SUM
   Do Until rst.EOF
'      if НЕ УДАЛЕНА Then
           p_FIO = rst.Fields( 0 )
           p_SUM = rst.Fields( 1 )
'      endif
      rst.MoveNext
   Loop
   rst.Close:  Set rst = Nothing
   conn.Close: Set conn = Nothing

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы