Здрассте!
Private Sub Scan_GotBarcode()
Dim rsProc As ADODB.Recordset
With Me.RecordsetClone
If .EOF Or .BOF Then GoTo NotFound_
If Not Me.Parent!swIns Then
If Scan.KeyFound = 0 Then GoTo NotFound_
.Find "bKey=" & Scan.Key
If .EOF Or .BOF Then GoTo NotFound_
Me.Bookmark = .Bookmark
End If
End With
Set rsProc = CurrentProject.Connection.Execute _
("spInsertBarcode " & Me.Ключ.Value & ", '" & Scan.Barcode & "'")
If Me.Parent!swIns Then Me.Parent!swIns = Not Me.Parent!swIns
Me.Этикетка.Value = IIf(rsProc!Result = "refuse", "e", IIf(Me.Этикетка.Value = "e", "e", "b"))
ShowLabelSign
Exit Sub
NotFound_:
doBeep
End Sub

Вот когда Me.Parent!swIns - тру, все пролетает ок, иначе rsProc - пустой (но не nothing)

... опять без сладкого...