想不区别大小用的instr，只写第4个参数1不行，第1个参数写上1，测到都是1，不知什么情况
复制示例代码，实测和它的不一样，第4个参数没起作用，得0，不是它的6。

这就奇怪了，为什么你那里得不到正确结果呢？我这里就可以

Private Sub Command1_Click()
Dim SearchString, SearchChar, MyPos
SearchString = "XXpXXpXXPXXP" ' ±»ËÑË÷µÄ×Ö·û´®¡£
SearchChar = "P" ' Òª²éÕÒ×Ö·û´® "P"¡£
' ´ÓµÚËĸö×Ö·û¿ªÊ¼£¬ÒÔÎı¾±È½ÏµÄ·½Ê½ÕÒÆð¡£·µ»ØֵΪ 6£¨Ð¡Ð´ p£©¡£
' Сд p ºÍ´óд P ÔÚÎı¾±È½ÏÏÂÊÇÒ»ÑùµÄ¡£
MyPos = InStr(4, SearchString, SearchChar, 1)
Print MyPos
End Sub

我win10下，ide也是6

还有也是win7（xp没有这事），ado连access2003数据库，select xx from yy where zz like '%a%'
在ide里，比如zz是“张三”，a是“张”，zz里的第一个字符是找不到的，输入“三”才可以，生成exe才正常。