Имя пользователя
AUserName = Environ("UserName")
Примерчик: Автор: Андрей Митин : http://am.rusimport.ru/MSAccess/default.aspx
MSA-2003 ( 73 kB)