Keep getting a compile error "Loop without Do and cannot find where the issue is. Appears everything matches up!
Dim blnError As Boolean
Dim strErrMessage As String
'On Error GoTo ErrHandler
Set db = CurrentDb
Set rstSource = db.OpenRecordset("SELECT * FROM [Parsed Messages]...