ник: snipe
For i = dobav_s To dobav_po
if DCount("[серия_номер]","[имя_источника]","[серия_номер]=" & Me.серия + CStr(Mid(i, 2, 10)))=0 then
rs.AddNew
rs![номер] = Mid(i, 2, 10)
rs![серия] = Me.серия
rs![серия_номер] = Me.серия + CStr(Mid(i, 2, 10))
rs.Update
end if
Next
может где-то так (хотя могу ошибаться)