через адо
Вот часть работающего кода

Set rst = New ADODB.Recordset
' Note that we can't move backwards through
' this recordset.
Set rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenForwardOnly
rst.LockType = adLockReadOnly
rst.Open (SQL_ZACL) ' имя запроса или сам запрос строкою ниже
' rst.Open ( _
' "SELECT ... FROM...")

' Get all the rows, but only the CompanyName
' and ContactName fields.
varData = rst.GetRows( _
Fields:=Array("СекцияЗакладки", "кодСекцияЗакладки"))
rst.Close
Set rst = Nothing

' How many rows did it actually send back?
intCount = UBound(varData, 2) + 1
' Loop through all the rows, printing out the
' data
For intI = 0 To intCount - 1 Step 1

fldStr = "pole" & intI + 1
Name = "Надпись" & intI + 1
Reset = "reset" & intI + 1


Me(Name).Caption = varData(0, intI)
Me(fldStr).RowSource = SQL_ZNACH
Me(fldStr).Requery
Me(Name).Visible = True
Me(fldStr).Visible = True
Me(Reset).Visible = True