Not Iterating Thru Recordset Entirely

Hello,

I need to find out why this code isn't going through every record, only some:

Code: 'Check the Analyte to remove Chemical Symbols from end ' - Preserve in additional field Dim strSymbol As String Dim strRemove As String Dim intLABCHECK As Integer Set dbs = CurrentDb Set rec = dbs.OpenRecordset("tblWater_Sample_Temp_Maxxam", dbOpenDynaset) 'If RS.EOF then we're at the end of the recordset already, i.e. no records If rec.EOF Then rec.Close Set rec = Nothing Set dbs = Nothing Else rec.Requery rec.MoveFirst While Not rec.EOF strSymbol = GetSymbol(rec("Analyte")) strRemove = RemoveSymbol(rec("Analyte")) intLABCHECK = StrComp(strSymbol, "(LAB)") ' if it does not equal (LAB) If (Len(strSymbol) < 6) And (Len(strSymbol) > 1) And (intLABCHECK < 0) Then rec.Edit rec("AnalyteSymbol") = strSymbol rec("Analyte") = strRemove rec.Update End If rec.MoveNext Wend End If

GetSymbol:
Code:Function GetSymbol(var As String) intPoint = CInt(InStrRev(var, "(")) If intPoint = 0 Then GetSymbol = "" Else strLastPart = Mid(var, intPoint) GetSymbol = strLastPart End IfEnd Function

RemoveSymbol:
Code:Function RemoveSymbol(var As String) intPoint = CInt(InStrRev(var, "(")) If intPoint = 0 Then RemoveSymbol = var Else strLastPart = Mid(var, 1, (intPoint - 1)) RemoveSymbol = strLastPart End IfEnd Function