[RESOLVED] Run-time Error Problem

[manofsteel00]

I'm getting the following runtime error message:

Run-time Error: '-2147467259(80004005)':File Sharing lock count exceeded. Increase MaxLocksPerFile registry entry.

I get this error message on the following line of code:

recordSet.Fields("PICKSL") = Replace(recordSet.Fields("PICKSL"), "'", "")

This line of code is in the following function:

Private Function conform(db As String) As Boolean
    Set connection = New ADODB.connection
    connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= G:\Finance\Inventory Control\CycleCount\DB\CycleCount.mdb"
    connection.Open
    Set recordSet = New ADODB.recordSet
    recordSet.Open db, connection, adOpenKeyset, adLockPessimistic, adCmdTable
    
    If (recordSet.EOF = False) Then
        recordSet.MoveFirst
        
        Do Until recordSet.EOF
            If (db = "TEST") Then
                [B]recordSet.Fields("PICKSL") = Replace(recordSet.Fields("PICKSL"), "'", "")[/B]
                recordSet.Fields("SLOT") = Replace(recordSet.Fields("SLOT"), "'", "")
                recordSet.Fields("RES") = Replace(recordSet.Fields("RES"), "'", "")
                recordSet.Fields("PROD") = Replace(recordSet.Fields("PROD"), "'", "")
                recordSet.Fields("DESC") = Replace(recordSet.Fields("DESC"), "'", "")
                recordSet.Fields("PACK") = Replace(recordSet.Fields("PACK"), "'", "")
                recordSet.Fields("MANU ID") = Replace(recordSet.Fields("MANU ID"), "'", "")
                recordSet.Fields("HITIX") = Replace(recordSet.Fields("HITIX"), "'", "")
                recordSet.Fields("PALLET ID") = Replace(recordSet.Fields("PALLET ID"), "'", "")
            
                reSizeDesc (recordSet.Fields("DESC"))
                reSizeManUID (recordSet.Fields("MANU ID"))
            ElseIf (db = "PICKSL") Then
                recordSet.Fields("PICKSL") = Replace(recordSet.Fields("PICKSL"), "'", "")
                recordSet.Fields("HITI") = Replace(recordSet.Fields("HITI"), "'", "")
                recordSet.Fields("PACK") = Replace(recordSet.Fields("PACK"), "'", "")
                recordSet.Fields("DESC") = Replace(recordSet.Fields("DESC"), "'", "")
                recordSet.Fields("MANUID") = Replace(recordSet.Fields("MANUID"), "'", "")
                recordSet.Fields("PROD") = Replace(recordSet.Fields("PROD"), "'", "")
                            
                reSizeDesc (recordSet.Fields("DESC"))
                reSizeManUID (recordSet.Fields("MANUID"))
            End If
            
            recordSet.MoveNext
            DoEvents
        Loop
    End If
    
    recordSet.Close
    connection.Close
    Set recordSet = Nothing
    Set connection = Nothing
    
    conform = True
End Function

Any help would be greatly appreciated. Thank you.