Dim rs As Object Dim rs As Recordset

Dim int As Integer ' nonobject variable declaration Dim db As Database ' object variable declaration InputBox(prompt [, title] [, default])

On Error Resume Next

Sub example()

On Error GoTo ERR_EXAMPLE MsgBox rs.RecordCount

Exit Sub ERR_EXAMPLE:

MsgBox Err.Description, vbCritical Resume Next

End Sub

Методы запуска запросов

Макрокоманда,	Объект	Источник	Пример
метод или объект	запускается
	из
Макрокоманда	DoCmd	Строка SQL	DoCmd.runSQL strSQL
runSQL
Макрокоманда	DoCmd	Заготовленный	DoCmd.OpenQuery
OpenQuery		запрос	“qryTotals”
Метод Open	Включение	Строчка SQL или	db. OpenRecordset strSQL
Recordset	или БД	заготовленный
(DAO)		запрос
Метод Open	Включение	Строка SQL,	rs.Open “SELECT * FROM t”
(DAO)	или набор	заготовленный
	записей	запрос или
		процедура
Метод Execute	Включение	Строка SQL	db.execute strSQL
(DAO)	или БД
Метод Execute	Включение	Строка SQL	cnn.execute strSQL
(ADO)	или команда
QueryDef	Включение	Заготовленный	db.QueryDefs ("qryTotals")
(заготовленный	или БД	запрос
запрос DAO)