用VB怎样引用数据库？这个对我很重要啊，哪路高手可以答复啊？我会多加分的。谢谢！

是的，如果数据库连接对象打开了，
就要关闭，不然资源不释放
------------------------------------
Private Sub InitData()

Dim objConn As Object
Dim objRes As Object

Dim strSql As String
Dim lngWordCount As Long

On Error GoTo ErrHandle

'创建一个ADO数据库连接对象
Set objConn = CreateObject("AdoDB.Connection")
'给数据库连接对象指定要连接的数据库，这里是ACCESS数据库,位置在C盘，名字1.MDB
objConn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;"
objConn.open
'一个SQL语句字符串
strSql = "select count(*) from jpword"
'执行这个SQL语句
lngWordCount = objConn.execute(strSql)(0)
'关闭数据库连接对象
If Not objConn Is Nothing Then
If objConn.State = 1 Then
objConn.Close
End If
End If
'释放数据库连接对象
Set objConn = N