[Resolvido]Erro em tempo de execução 3075

Senhores

Estou com um erro q não consigo resolver e conto com a ajuda de todos.

Na rotina abaixo, da erro em tempo de execução na linha
DoCmd.OpenForm "Detalhes da Empresa", , , "[Empresa] = " & [intPrevNode]
O campo é texto

---------------

Private Sub TreeView1_NodeClick(ByVal Node As Object)
Static intPrevNode As String

intPrevNode = Nz(Node.Tag, 0)

   Select Case Node.Image
   Case "Empresa"
       If intPrevNode = "0" Then
       intPrevNode = Nz(Node.Text, 0)
       DoCmd.OpenForm "Detalhes da Empresa", , , "[Empresa] = " & [intPrevNode]
   Else
       DoCmd.OpenForm "Detalhes da Empresa", acNormal, "", "[CódigoDaConta]=" & Nz([intPrevNode], 0)
   End If
   Case "Customer"
       DoCmd.OpenForm "Detalhes do Contato", acNormal, "", "[CódigoDaConta]=" & Nz([intPrevNode], 0)
   End Select
End Sub

Ola,
Provavelmente porque ser string, terá de ser assim,

DoCmd.OpenForm "Detalhes da Empresa", , , "[Empresa] = '" & intPrevNode & "'"

Prezado JPaulo

Resolvido o problema

Muito obrigado

Obrigado pelo retorno o forum agradece.