vb6.0连接access数据库

本文主要介绍vb6.0实现数据库的连接方法：

Dim Conn As ADODB.Connection '定义数据库连接工具
Set Conn = New ADODB.Connection  '初始化
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\DataBase\数据库.mdb" '连接数据库
Dim Rs As ADODB.Recordset '设置数据指针
Set Rs = New ADODB.Recordset '初始化指针
Rs.Open "select * from 权重集", Conn, adOpenDynamic, adLockOptimistic '打开数据库
Rs.close '关闭数据库