本文主要介绍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 '关闭数据库