Access |
Dim DB As Object
Set DB = OpenDatabase("d:\users\.accdb")
Application.ActiveCell.CopyFromRecordset _
DAO.Workspaces(0).OpenDatabase("d:\users\.accdb"). _
OpenRecordset("SELECT ., ., ., ., ., . FROM ;")
Set DB = Nothing
Range("A2").Select
http://www.sql.ru/forum/1115909/uslovie-dlya-zaprosa-peredat-v-access