StLinkCriteria

Buenas tardes esxpertos,
Actualmente estoy intentando abrir un formulario aplicando filtros por medio de VB.
este es el codigo que escribí, pero no logro el objetivo:
Dim stdocname As String
Dim stlinkcriteria As String
stdocname = "Escaneodallas"
stlinkcriteria = "[code]= & 92101 & " And " & [code]= & 92102 & "
DoCmd.OpenForm stdocname, acFormDS, stlinkcriteria
Me manda error de TYPE MISMATCH
Saludos