честно говоря, надо видеть весь код.
и наче остается мутное место с меткой 777
то, что "там" должно быть "здесь".
Не зная что там, невозможно сказать - что делать, например, с - рекордсетом - закрывать или так оставить.
Без учета 777 И соображений о скорости, (про скорость - ничего не скажу), а только принимая во внимание компактность, я бы написал так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
'рекордсет к этому моменту открыт
'считываем все в один массив
Dim j as long, i as long
Dim v 'будет массивом, в который прочитем значения из ексель
z12 = xw.ActiveSheet.Cells( 2 , 2 )
'считываем все остальные значения за раз в массив
v = cw.ActiveSheet.Range("A5:K1000").Value
' как будто ексель нам больше не нужен - все есть, кроме загадочного 777
'цикл добавления в базу
For i= 1 to 996
'все потому, что просят оптимизировать, не показывая, что именно
if IsEmpty((v(i, 2 )) then
' rst.Close ???
' Set rst = Nothing ???
GoTo 777
endif
rst.AddNew
'если бы порядок полей в рекордсете точно совпадал с порядком полей в екселе, то можно было бы писать так как закоментировано
'for j = 0 to 10
' rst(j).value = v(i,j+1)
' next j
' rst(11) = z12
' если по каким-то причинам нельзя добиться одинакового порядка полей,
' писать придется в стиле
' rst![Товар] =v(i,1) ... и далее по списку
rst.Update
Next i
rst.Close
Set rst= Nothing
