Set db = CurrentDb
'Open the Employees table.
Set rst = db.OpenRecordset(dbFileName, dbOpenDynaset, dbReadOnly)
ID="IDKey" ' в базе имеет Counter
'так обычно обаращаемся к полю
switch = rst!IDKey
' а я бы хотел подставлять текстовое значение поля
switch = rst!"Text" ' в скобках указывается нужное поле
|