VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "DbOperation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'聲明一個連接
Dim conn As ADODB.Connection
'聲明一個數(shù)據(jù)集對象
Dim rst As ADODB.Recordset
Public Sub DB_Connect()
   '建立連接
   Set conn = New ADODB.Connection
   conn.Open ConnectString
   
End Sub
Public Function querySQL(ByVal sql As String) As ADODB.Recordset
   '執(zhí)行查詢
   Set rst = New ADODB.Recordset
   rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
    'rst.MoveLast     'get RecordCount
   Set querySQL = rst

End Function
Public Sub executeSQL(ByVal sql As String)
   '執(zhí)行sql語句
   conn.Execute (sql)


End Sub
Public Sub DB_DisConnect()
   '關(guān)閉連接
   conn.Close
   '釋放連接
   Set conn = Nothing
End Sub