请问，如何将连接数据库的那段程序放到model中。

[regin_me]

将连接数据库的程序放在哪儿才可以不需要每次都加载它？

dim conn as adodb.connection
dim connstr as string
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr

[jackclh]

'放模块中，然后把启动对象调为Sub Main

'定义ADO的相关对象变量
Public Sub Main()
'连接数据库的程序
End Sub

[itxxx]

'放模块中，然后把启动对象调为Sub Main

'定义ADO的相关对象变量
Private Sub Main()
'连接数据库的程序
End Sub

[tztz520]

'放到模块中
public conn as adodb.connection
dim connstr as string

connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr

'在模块中用PUBLIC定义的CONN就可以在全局中用了

[regin_me]

是不是在工程中新建一个模块，模块中放入程序：
————————————
'CONNECT THE SQL SERVER
Private Sub Main()

public conn as adodb.connection
dim connstr as string

connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr

End Sub

————————————————————————
是不是这样就可以了？

[regin_me]

是的话我就结帖了。

[starsoulxp]

'放模块中，然后把启动对象调为Sub Main

'定义ADO的相关对象变量
dim conn as adodb.connection
dim connstr as string

Private Sub Main()
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
End Sub