VB数据库查询

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

全局变量当然可以保留值

模块

Public

TestRS

As

ADODB.Recordset

窗体1

Set

TestRS

=

rs

窗体2

MsgBox

TestRS.RecordCount

1、首先打开Visual Studio 2008代码窗口，添加引用。

2、输入以下代码：Public conn1  As SqlConnection = New SqlConnection 。

3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。

4、如果SQL 数据库就在本机，则用以下代码连接。

5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。

---