Пишу обработчик кнопки в Access 2002...

Private Sub Кнопка_Click()

Dim dbs As Database
Dim wsp As Workspace
Dim qry As QueryDef
Dim zap As Recordset
Dim otv As Integer

Set wsp = DBEngine.Workspaces(0)
Set dbs = wsp.Databases(0)

Set zap = dbs.OpenRecordset("SELECT * FROM Teams WHERE Teams.команда='Москва';")

otv = MsgBox("Удалить?", vbOKCancel)
If otv = vbCancel Then
Exit Sub
End If

wsp.BeginTrans

zap.Delete
Set qry = dbs.QueryDefs("Запрос транзакции")
qry.Execute

wsp.CommitTrans
dbs.Close

Exit Sub
End Sub

Нажимаю кнопку... Вылезает ошибка:
Run-time error '13':
Type mismatch

И указывает на строчку:
Set zap = db2.OpenRecordset("Select * FROM Teams WHERE Teams.команда='Москва';")

Объясните пожалйста, где ошибка?
Заранее благодарен!!!

Уже не надо!
Надо было вместо: Dim zap As Recordset
Написать: Dim zap As DAO.Recordset

Спасибо mds_world'у!

Настеньказачем после слова Москва еще ;?
потому что в конце инструкции sql ставиться ;
если ее не ставить, то access добавит ее сам