Ниже приведен код (не обращайте внимание на ??? - это рус названия так перенеслись, я их править не стала) Красным выделены две строки, попадая на кот курсор сразу переходит на End If - а две потому как, если убрать первую строку, то такая проблема на второй строке.
Что не так?

Private Sub ??????14_Click()
Dim rst As ADODB.Recordset
Dim rst2 As ADODB.Recordset
Dim strSQL As String
Dim strSQL1 As String
Dim cmd As ADODB.Command
Dim prm1 As ADODB.Parameter
Dim prm2 As ADODB.Parameter
Dim varItm As Variant
Dim s As String
Dim i As Variant

On Error GoTo err_??????14_Click
strSQL = "SELECT CzurnalHozOp.????, CzurnalHozOp.????????, CzurnalHozOp.????????????, CzurnalHozOp.??????????, CzurnalHozOp.??????????, CzurnalHozOp.?????, CzurnalHozOp.?????, CzurnalHozOp.??????, CzurnalHozOp.?, CzurnalHozOp.?? " _
& "FROM CzurnalHozOp;"

If Forms![???????????1]![??????] = 1 Or Forms![???????????1]![??????] = 3 Then

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdTable
cmd.CommandText = "qrySumma"

Set prm1 = cmd.CreateParameter("dateBefore", adDate, adParamInput)
Set prm2 = cmd.CreateParameter("dateAfter", adDate, adParamInput)

prm1.Value = [Forms]![???????????1]![?]
prm2.Value = [Forms]![???????????1]![??]
cmd.Parameters.Append prm1
cmd.Parameters.Append prm2

Set rst2 = New ADODB.Recordset
rst2.ActiveConnection = CurrentProject.Connection
rst2.CursorType = adOpenKeyset
rst2.LockType = adLockOptimistic
Set rst2.Source = cmd ' ????????? ?????? ? RecordSet
rst2.Open
rst2.MoveFirst

Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Source = strSQL
rst.Open

s = lb2.RowSource
For Each varItm In lb1.ItemsSelected
s = s & lb1.Column(0, varItm) & ";"
s = s & lb1.Column(1, varItm) & ";"
Next varItm

lb2.RowSource = s

Do Until rst2.EOF

For i = 0 To lb2.ListCount - 1
If CLng(lb2.Column(0, i)) = rst2.Fields("????????? ? ??????????") Then

With rst

.AddNew

.Fields("????") = Forms![???????????1]![????]
.Fields("????????") = Forms![???????????1]![????????]
.Fields("????????????") = Forms![???????????1]![??????]
'.Fields("??????????") = Forms![???????????1]![??????????]
.Fields("?????") = Forms![???????????1]![?????]
.Fields("??????") = Forms![???????????1]![??????]
.Fields("?") = Forms![???????????1]![?]
.Fields("??") = Forms![???????????1]![??]
.Fields("??????????") = rst2.Fields("????????? ? ??????????")
.Fields("?????") = rst2.Fields("Summa")
End With

End If
Next i

' Exit For
' If rst2.PageCount = lb2.ListCount Then
' Exit Do

rst2.MoveNext
Loop
rst.Update
MsgBox "?????????? ?????????"
rst.Close
rst2.Close
Set rst = Nothing
Set rst2 = Nothing
Set cmd = Nothing
Set prm1 = Nothing
Set prm2 = Nothing
Forms![???????????1]![????] = ""
Forms![???????????1]![????????] = ""
Forms![???????????1]![??????] = ""
Forms![???????????1]![??????????] = ""
Forms![???????????1]![?????] = ""
Forms![???????????1]![??????] = ""
Forms![???????????1]![?] = ""
Forms![???????????1]![??] = ""
End If

Вопрос снимается, я нашла ошибку...