路飞去女儿国:vb 6.0和access数据库怎么连起来？？

Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Sql As String

'==================
'连接数据库
'==================
Public Function DB_Link()
On Error Resume Next
Dim CnStr As String
Dim DBPath As String, DBName As String
Dim DBUser As String, DBPsw As String
DBPath = "C:\Program Files\Microsoft Visual Studio\VB98\" '数据库地址
DBName = "db1.mdb" '数据库文件名
DBPsw = DATABASE_PASSWORD '数据库密码
CnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data source =" & DBPath & DBName & "; Jet OLEDB:Database Password=" & DBPsw
Conn.CursorLocation = adUseClient '必须设置客户端游标方式
Conn.Open CnStr
End Function

'====================
'断开数据库
'====================
Public Function DB_Close()
On Error Resume Next
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Function

把以上代码放在模块里，
连接数据库时调用db_link,关闭时调用db_close
例如：
db_link
sql = "select * from 表名"
set rs = conn.execute(sql)
'RS就是建立的数据集。
db_close