Public dbConn As ADODB.Connection '定义一个ADODB连接Public stuRs As ADODB.Recordset '定义Recordset对象Public SqlFindStr As StringPublic Function Conn2DB() As Boolean'公共Access数据库连函数Dim connStr As StringDim dbName As StringdbName = App.Path & "\" & "StudentDB.mdb" '返回程序所在路径' Access连接字符串conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbNameSet dbConn = New ADODB.Connection '定义一个ADODB连接对象If dbConn.State <> adStateOpen Then '判断ADODB连接是否打开dbConn.Open conStr '如果不是打开状态 就打开连接End IfConn2DB = TrueEnd FunctionPublic Function ExcSQL(ByVal sql As String) As ADODB.RecordsetDim rst As ADODB.Recordset'执行一条SQL查询,得到一个记录集Set rst = New ADODB.Recordsetrst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic '得到记录Set ExcSQL = rstEnd Function
