[Resolvido]Abrir formulário com dois critérios

Código:


Private Sub Comando65_Click()
On Error GoTo Trato

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmRequerimentos2"
stLinkCriteria = "[IdDados]=" & Me.IdDados & " & [IdArma]=" & Me.IdArma
'Já tentei de diversas formas e não consegui,
'Ou abre o formulário em branco, ou seleciona apenas um único registro
'
'stLinkCriteria = "[IdDados]=" & Me.lstDados.Value & " AND [IdArma]=" & Me.lstArmas.Value
'Abre o form em branco
'
'stLinkCriteria = "[IdDados]=" & Me.IdDados & " [IdArma]=" & Me.IdArma
'Informa erro de sintaxe
'

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit Sub
Trato: ExplicaErro
End Sub


Private Sub Comando65_Click()
On Error GoTo Trato

Dim stDocName As String
Dim stLinkCriteria As String

   stDocName = "frmRequerimentos2"
   stLinkCriteria = "[IdDados]=" & Me.lstDados.Column(0) & " AND [IdArma]=" & Me.lstArmas.Column(1)
   DoCmd.OpenForm stDocName, , , stLinkCriteria

  Exit Sub
Trato: ExplicaErro
End Sub