把下面的代码加到类模块里

Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public rspt As ADODB.Recordset
Public a As String

Public Function conn() As Boolean
Set cn = New Connection
On Error GoTo cnerr
Dim connect As Boolean
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\system.ini;"
cn.ConnectionTimeout = 20
cn.Open
conn = True
Exit Function
cnerr:
conn = False
MsgBox Err.Description
End Function

Public Function openrs(ByVal sqlstr As String) As Boolean
Set rs = New Recordset
On Error GoTo rserr
rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic, -1
openrs = True
Exit Function
rserr:
openrs = False
MsgBox Err.Description
End Function

[此贴子已经被作者于2006-3-30 13:16:52编辑过]

补充
我的ACCESS库用的是INI后缀

不大明白。我见有很多例子都不需要添加类模块，而是在一般窗体上直接这样编写：
Dim db Database
set db =workspaces(0).opendatabases(App.path&"\数据库名.mdb")
即可连接上数据库。是不是一定要用Data 控件来绑定数据库才能这样编写？

有很多连接数据库的方法
其中最常见的是引用DATE控件

我这个没有用DATE控件

哦,那上面的那段代码是否都能用于INI后缀和mdb后缀呢？

是的
我把数据库的后缀改了

因为我是从ASP转成做程序的
所以不习惯用空间
习惯直接写代码
呵呵

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\system.ini;"这段代码有错....不知错在那里！！！

你的数据库是叫system.ini吗？