filter = "ISO = '" & e.GetValues("iso").ToString & "'" AndAlso "openid = '" & e.GetValues("openid").ToString & "'"
改成
filter = "ISO = '" & e.GetValues("iso").ToString & "' And openid = '" & e.GetValues("openid").ToString & "'"