VB数据库查询

虽然不推荐，你可以试下放到公共变量里传递

全局变量当然可以保留值

模块

Public

TestRS

As

ADODB.Recordset

窗体1

Set

TestRS

=

rs

窗体2

MsgBox

TestRS.RecordCount

InStr 函数，返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置，InStr函数可以找到指定的字符串在另一字符串中最先出现的位置。

使用这个函数的语法：

InStr([start, ]string1, string2[, compare])

这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。指定字符串比较。此compare参数是可以省略的，也可以是 0, 1或 2。

指定0（缺省）做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现：

pos=InStr(1,"abcdefg","cd")

pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。

扩展资料：

instr函数为字符查找函数，其功能是查找一个字符串在另一个字符串中首次出现的位置。instr函数在Oracle/PLSQL中是返回要截取的字符串在源字符串中的位置。

参数

string1：源字符串，要在此字符串中查找。

string2：要在string1中查找的字符串 。

start_position：代表string1 的哪个位置开始查找。此参数可选，如果省略默认为1. 字符串索引从1开始。如果此参数为正，从左到右开始检索，如果此参数为负，从右到左检索，返回要查找的字符串在源字符串中的开始索引。

nth_appearance：代表要查找第几次出现的string2. 此参数可选，如果省略，默认为 1.如果为负数系统会报错。

参考资料来源：百度百科-instr函数

---