Estou executando o MS Access 2007, conectando-me a um servidor MS SQL 2008 R2. Eu tenho um formulário com uma caixa de seleção múltipla que eu uso para atualizar o status para vários campos para os servidores selecionados. Atualmente estou usando o campo ServerName na caixa de seleção múltipla. O problema é que pode haver vários registros com o mesmo nome de servidor. Portanto, para contornar isso, quero alterá-lo do ServerName para o número de registro (ID). Quando eu faço isso embora VB dá o erro "Erro 3622 - você deve usar a opção dbSeeChanges com OpenRecordset ao acessar uma tabela do SQL Server que tenha uma coluna IDENTITY". Analisei muitos posts diferentes em sites diferentes, mas não consigo descobrir como implementar isso em meu código. O script funciona perfeitamente quando eu uso ServerName, ele também funciona perfeitamente se eu for para o servidor SQL e alterar o campo para Identity = False. O problema é que não consigo criar novos registros com o autonumber. Ele também funciona perfeitamente se eu codificar os números de linha em uma consulta de atualização. O problema é que não posso codificar os números de linha para todos que usam o banco de dados. O problema parece estar relacionado apenas ao VB. Abaixo está o que eu tenho atualmente. Como você pode ver, tentei adicionar o dbSeeChanges à linha Execute.

Private Sub btnRoarsStatus_Click()
Dim strSQL As String
Dim Criteria As String
Dim Itm As Variant

With Me.lstServerNames

    If .ItemsSelected.Count > 0 Then
          For Each Itm In .ItemsSelected
              Criteria = Criteria & "," & .ItemData(Itm)
           Next Itm

          ' remove leading comma
           Criteria = Mid(Criteria, 2)

           ' execute the SQL statement
            strSQL = "UPDATE buildsheet SET [Roars Status] = " & Chr(34) & _
            Me.cboRoarsStatus & Chr(34) & " WHERE ID IN(" & Criteria & ")"

            Debug.Print strSQL
         CurrentDb().Execute strSQL, dbSeeChanges

      Else
          MsgBox "You must select one or more items in the  list box!", _
                  vbExclamation, "No Selection Made"
                  Exit Sub
      End If
  End With
 MsgBox "Completed", vbExclamation, "Completed"
End Sub