Public dbConn As ADODB.Connection
Public stuRs As ADODB.Recordset
Public SqlFindStr As String

Public Function Conn2DB() As Boolean
'公共Access數(shù)據(jù)庫(kù)連函數(shù)

Dim connStr As String
Dim dbName As String

dbName = App.Path & "\" & "StudentDB.mdb"

' Access連接字符串
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName

Set dbConn = New ADODB.Connection

If dbConn.State <> adStateOpen Then
dbConn.Open conStr
End If

Conn2DB = True
End Function

Public Function ExcSQL(ByVal sql As String) As ADODB.Recordset
Dim rst As ADODB.Recordset

'執(zhí)行一條SQL查詢,得到一個(gè)記錄集
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic

Set ExcSQL = rst
End Function

想知道這段代碼是什么意思,急啊!!!謝謝大蝦幫忙啊!!SOS

Public dbConn As ADODB.Connection '定義一個(gè)ADODB連接
Public stuRs As ADODB.Recordset '定義Recordset對(duì)象
Public SqlFindStr As String

Public Function Conn2DB() As Boolean
'公共Access數(shù)據(jù)庫(kù)連函數(shù)

Dim connStr As String
Dim dbName As String

dbName = App.Path & "\" & "StudentDB.mdb" '返回程序所在路徑

' Access連接字符串
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName

Set dbConn = New ADODB.Connection '定義一個(gè)ADODB連接對(duì)象

If dbConn.State <> adStateOpen Then '判斷ADODB連接是否打開(kāi)
dbConn.Open conStr '如果不是打開(kāi)狀態(tài) 就打開(kāi)連接
End If

Conn2DB = True
End Function

Public Function ExcSQL(ByVal sql As String) As ADODB.Recordset
Dim rst As ADODB.Recordset

'執(zhí)行一條SQL查詢,得到一個(gè)記錄集
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic '得到記錄

Set ExcSQL = rst
End Function

ADODB是數(shù)據(jù)庫(kù)訪問(wèn)組件,connection是其中的一個(gè)對(duì)象