Чтение данных из таблиц MS Access при помощи VBA

[Dark Fox]

Народ, помогите!
недавно начал работать с VBA, до этого работал с другими языками программирования.
Подскажите как считать данные из нескольких таблиц access для использования этих данных в одной форме при помощи цикла.
Не могу найти подходящих и удобных средств...
Кто может помогите.

[alibek]

Можно через DAO.TableDefs. Можно через ADOX.Tables. Можно через ADODB.Connection.OpenSchema. Можно читать из системных таблиц, но это нежелательно.

[GDK]

А не знает кто где почитать про ADO чё-нить толковое? А то в поиске мало полезного (или я плохо искаю). DAO & RDO вроде как устаревшее всё. А хоцца научиться работать с БД (и не только с аксесс).

[Roman Koff]

Код: Выделить всё

Sub Work()
   Dim RS01 As DAO.Recordset
   Dim RC01 As Long
   Dim RP01 As Long
   Dim V01 As String
   RS01 = CurrentDb.OpenRecordset("Запрос")
   RS01.MoveLast()
   RS01.MoveFirst()
   RC01 = RS01.RecordCount   ' количество записей
   For RP01 = 1 To RC01
      V01 = RS01.Fields("Поле таблицы") ' чтение
      RS01.Edit()
      RS01.Fields("Поле таблицы") = V01 & now ' запись
      RS01.Update()
      RS01.MoveNext()
   Next
   RS01.MoveFirst()
   RS01.Close()
   MsgBox("Ok")
End Sub