vb 的 模块 问题

Question

模块:
Option Explicit
sub ljdata()'连接数据库的过程
Dim cn As New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=fjzhqm89uiaz;Initial Catalog=db_zdtl;Data Source=datacenter"
……
end sub

Answer 1

写在模块的头部
public cn As New ADODB.Connection
然后在过程（或函数）中
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=fjzhqm89uiaz;Initial Catalog=db_zdtl;Data Source=datacenter"

Answer 2

这个是可以的 但是 每次调用数据库 还是要写 cn.open ....... 之类的  
我就是想在其他过程中 可以直接调用 cn 变量 

Answer 3

过去的时候打开CN.OPEN，最后出来才关闭，这样在别的地方就可直接调用 cn 变量 

Answer 4

"無效的外部编译"
老兄你有沒有引用ADO Object呀?

Answer 5

我引用了呀 microsoft activex data objects 2.5 library 是不是呀 

Answer 6

只有用Public或Global声明的变量，才能在其他模块中调用。

Answer 7

只有用Public或Global声明的变量，才能在其他模块中调用。