strSQL = "Select * FROM [xxx] Where [编号]=" & Nz(Me.OpenArgs,0)

发现是编号是文本型，并不是数值型，要改为

改为 strSQL = "Select * FROM [XXX] Where [编号]=" & SQLText(Me.OpenArgs)