[Resolvido]Condicionar para Abrir um Formulário de uma ListBox

Segue abaixo o código, alguém sabe como condicionar ?
No caso é pra quando chamar o Form. ele vir com o mesmo numero que ele está na ListBox.

Código:


Private Sub ListP_DblClick(Cancel As Integer)
Dim sAbreForm As String

sAbreForm = Me.ListP.Column(5)

If sAbreForm = "Emb/Desemb" Then

     DoCmd.OpenForm "frm_Embarks", acNormal, , [ID] = [Forms]![fmr_employess]![ListP], acFormEdit
  
    
Else
     DoCmd.OpenForm "frm_commitment", acNormal, , [ID] = [Forms]![fmr_employess]![ListP], acFormEdit
    
    
    
Exit Sub
End If
End Sub


Opa Obrigado Avlieno, vou testar aqui, eu fiz uma maneira meio "não tão refinada" vamos dizer assim, eu consegui resolver mas fiz o seguinte, eu já tinha uma macro que funcionava com essas condições do "Where", então fiz só chamar as Macros nessas condições, mas vou testar essa forma que você sugeriu e provavelmente devo usar a sua.

Código:


Private Sub ListP_DblClick(Cancel As Integer)
Dim sAbreForm As String

sAbreForm = Me.ListP.Column(5)

If sAbreForm = "Emb/Desemb" Then
    DoCmd.RunMacro "OpenEmbarks"
Else
    DoCmd.RunMacro "OpenCommitment"
    
Exit Sub
End If
End Sub


[EDIT]
Testei aqui o Seu, funcionou também, eu não entendi a necessidade do &, seria pra concatenar ?