Raven B.
1. Чтобы получить результат выполнения запроса, пиши так:
Код:
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * From [ConnectInfo]")
2. Чтобы отключить предупреждения:
Код:
DoCmd.SetWarnings False
' Действия...
DoCmd.SetWarnings True