连接数据库问题，我是初学

Question

从菜单选择project--add module
在module中定义，可供整个工程调用

Answer 1

'连接
dim ac_tmp as new adodb.connection
With ac_tmp
    If .State = adStateOpen Then .Close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source="数据库路径\数据库名称";Mode=ReadWrite;Persist Security Info=False"
    .Open
  End With'打开数据库
dim ar_tmp as new adodb.recordset
with ar_tmp
    if .state=adstateopen then .close
    .open " select * from 表名 " ,ac_tmp,adopenkeyset,adlockreadonly
end if'显示数据
set mshflexgrid.datasource=ar_tmp
把连接定义成全局就可以在整个工程个使用了

Answer 2

dim cn as new adodb.connection 
cn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False

Answer 3

我的意思是象asp中一样，把库连接做成一个function或sub，在要用时include就行了，我不大懂上面各位写的就竟放哪，是不是也要写几遍啊？有人帮帮么？

Answer 4

我着样写，然后在需要的地方call con 对么？帮帮呀，谢谢
Sub con()
Dim conn As Connection
Dim rs As Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
constr = "provider=Microsoft.Jet.OLEDB.4.0;Data Source='../vbtext/kc.mdb';Persist Security Info=False"
conn.Open constr
End Sub