Ошибки 424 и 91

[gooddem]

Срочно нужна помощь полному чайнику.
Программа для Exel. Необходимо, чтобы в первом случае по нжатии кнопки открывалась форма, заполнялись поля часть из записей Access, часть вручную, по нажатию кнопки, данные обрабатываются и заносятся обратно в таблицы Access. Во втором случае данные заносятся в Вордовский файл. Теперь коды
Код раздела General
Dim bd1 As DAO.Database
Dim s1 As String, s2 As String, s3 As String
Dim r1 As Recordset, r2 As Recordset, r3 As Recordset, r4 As Recordset
Dim k1 As String, k2 As String, k3 As String, k4 As String
//объявление используемых переменных в общем разделе, так как они будут использоваться в нескольких процедурах
Код для первого случая

Private Sub ComboBox1_Click()
Set bd1 = OpenDatabase("d:\w\db1.mdb")
k1 = ComboBox1.Text
s1 = "select*from[Товары] where [Товар]= """ & k1 & """"
Set r1 = bd1.OpenRecordset(s1)
TextBox3.Text = r1!Количество
TextBox4.Text = Format((r1!Стоимость) / (r1!Количество), "#########")
End Sub

Private Sub CommandButton1_Click()
With r1
.Edit (Вылетает ошибка 424)
!Количество = !Количество + Val(TextBox1.Text)
!Стоимость = !Стоимость + Val(TextBox1.Text) * Val(TextBox2.Text)
.Update
End With
Для второго случая
Private Sub CommandButton1_Click()
Dim bd1 As DAO.Database
Dim r1 As Recordset
Dim e1 As Word.Application
Dim k As String, s As String, m As String
Set bd1 = OpenDatabase("d:\w\db1.mdb")
Set e1 = CreateObject("Word.Application")
e1.Documents.Open Filename:="d:\w\recl.doc"
k = UserForm3.ComboBox1.Text
s = "Select * From [Товары] Where [Товар]="" &k& """
Set rl = bd1.OpenRecordset(s)
m = InputBox("Введите цену товара")
e1.Application.Visible = True
e1.WindowState = wdWindowStateMaximize
e1.Documents("recl").TextBox2.Text = m
e1.Documents("recl").TextBox3.Text = r1!Описание (ошибка 91)
e1.Documents("recl").TextBox1.Text = r1!Товар
End Sub
Так в чем же ошибки?