Hi Group;
           I have five databases where the code below works great.  However
on one of the five I get the error message on the line indicated below.  Why
is the same Sub_routine working in four, but not the fifth?

           Dim db As Database
           Dim rst As Recordset
           Dim LeftLen As Byte
           Dim IX As Byte
           Dim wrkStr As String
           Dim wrkText As String

           Set db = CurrentDb
       
           Set rst = db.OpenRecordset("SELECT TEXT FROM SORTED1")
           
           Do Until rst.EOF
               wrkText = ""
               IX = 1
               If Right(rst!Text, 2) = ", " Then
                   rst.Edit                           '    Error Mesage on
this line?
                   LeftLen = Len(rst!Text) - 2
                   wrkStr = rst!Text
                   Do
                       wrkText = wrkText & Mid(wrkStr, IX, 1)
                       IX = IX + 1
                   Loop Until IX > LeftLen
                   rst!Text = wrkText
                   rst.Update
               End If
               rst.MoveNext
           Loop
           
               rst.Close
               
           Set rst = db.OpenRecordset("SELECT TEXT FROM SORTED1")
                     
           Do Until rst.EOF
               wrkText = ""
               IX = 1
               If Right(rst!Text, 3) = ",  " Then
                   rst.Edit
                   LeftLen = Len(rst!Text) - 3
                   wrkStr = rst!Text
                   Do
                       wrkText = wrkText & Mid(wrkStr, IX, 1)
                       IX = IX + 1
                   Loop Until IX > LeftLen
                   rst!Text = wrkText
                   rst.Update
               End If
               rst.MoveNext
           Loop

Thanks in Advance J.Q.