Hi,
I have an MS Access 2010 database with a module called bas This module reads the fields on a Microsoft Word document and then the data is loaded to a linked SQL Server 2008 R2 table. I am currently desigining this module so I am the only user using this database. I open the MS Access database, open the code for the module and click on Debug>Run. I get the following error:
-2147467259: The Database has been placed in a state by user ‘Admin’ on machine ‘JITC-PC’ that prevents it from being opened or locked.
How do I get rid of this error? Does any one have a solution? I have searched the Internet all week but haven't found a solution that works.

Here is my code:

Code:
Sub GetWordData()
    Dim appWord As Word.Application
    Dim doc As Word.Document
    Dim cnn As New ADODB.Connection
    Dim cnn2 As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim rst2 As New ADODB.Recordset
    Dim strDocName As String
    Dim blnQuitWord As Boolean
          
    On Error GoTo ErrorHandling
    
    strDocName = "\\JITC-PC\Users\Sharon\My Documents\GEOINT Repository\Requests\GEOINT_rep_req_form20111109 class.doc"
    Set appWord = GetObject(, "Word.Application")
    Set doc = appWord.Documents.Open(strDocName)
       
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=\\JITC-PC\Users\Sharon\Desktop\DEVELOPMENT.mdb"
    
   
    ' Open Requester table to load
    rst.Open "dbo_Requester", cnn, adOpenKeyset, adLockOptimistic
     
    With rst
        .AddNew
        !Requester_Organization = doc.FormFields("Req_Org").result
        .Update
        .Close
    End With 

     doc.Close
    
    If blnQuitWord Then appWord.Quit
        cnn.Close
        MsgBox "Requestor Data Imported!"
        
Cleanup:
    Set rst = Nothing
    Set cnn = Nothing
    Set doc = Nothing
    Set appWord = Nothing
        
    Exit Sub
    
ErrorHandling:
  Select Case Err
  Case -2147022986, 429
        Set appWord = CreateObject("Word.Application")
        blnQuitWord = True
        Resume Next
  Case 5121, 5174
        MsgBox "You must select a valid Word document. " _
                & "No Data Imported.", vbOKOnly, _
                "Word Document Not Found"
  Case 5941
        MsgBox "This Field is not found in the Word Document." _
                & "No Data Imported.", vbOKOnly, _
                "Fields not found in the Word Document"
  Case Else
        MsgBox Err & ": " & Err.Description
  End Select
  GoTo Cleanup
        
End Sub
Thank you for any help you can give me.

Sharon Chapman

Last edited by shabbir; 21Jul2012 at 10:21.. Reason: Code blocks