module1.txt

基于VB和ACCESS的成绩管理系统

Public Conn As New ADODB.Connection
Public Record As New ADODB.Recordset
'打开数据库函数
Public Function Open_DB(cmdSQL As String)
    cmdSQL = "Select * From " + cmdSQL
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./Info.mdb;Persist Security Info=False"

    Conn.Open
    Set Record = New ADODB.Recordset
    Record.Open cmdSQL, Conn, adOpenDynamic, adLockOptimistic
End Function


Public Function Close_DB()
   Conn.Close
End Function