Debug stops at the 3rd line of this code (Set rs =
db.openrecordse t("IMPORT") why?


Private Sub Command118_Clic k()
Dim rs As DAO.Recordset
Set rs = db.openrecordse t("IMPORT")
With rs
.MoveFirst
prev = !NOM_ACCOUNT
.MoveNext
Do
Select Case prev
Case "1700"
If !NOM_ACCOUNT <> "2300" Then
MsgBox "There has been...