VBA操作数据库

'"Provider=MSDAORA.1;Data Source=数据源;User ID=用户名;Password=密码;Persist Security Info=True"
'"Provider = Microsoft.Jet.OLEDB.4.0; Data Source=d:/BS_TABLE/BS_sheet.mdb;"
Private conn As ADODB.Connection

'''---------------------------------------------------
'''<summary>
'''OpenConnection
'''<summary>
'''---------------------------------------------------
Public Sub OpenConnection(ByVal connString As String)
   Set conn = New ADODB.Connection
   conn.Open connString
End Sub

'''---------------------------------------------------
'''<summary>
'''CloseConnection
'''<summary>
'''---------------------------------------------------
Public Sub CloseConnection()
    If Not conn Is Nothing Then
       conn.Close
    End If
End Sub

'''---------------------------------------------------
'''<summary>
'''BeginTrans
'''<summary>
'''---------------------------------------------------
Public Sub BeginTrans()
    If Not conn Is Nothing Then
       conn.BeginTrans
    End If
End Sub

'''---------------------------------------------------
'''<summary>
'''CommitTrans
'''<summary>
'''---------------------------------------------------
Public Sub CommitTrans()
    If Not conn Is Nothing Then
       conn.CommitTrans
    End If
End Sub

'''---------------------------------------------------
'''<summary>
'''RollbackTrans
'''<summary>
'''---------------------------------------------------
Public Sub RollbackTrans()
    If Not conn Is Nothing Then
       conn.RollbackTrans
    End If
End Sub

'''---------------------------------------------------
'''<summary>
'''ExecuteNonQuery
'''<summary>
'''<param name="commandText"></param>
'''<returns></returns>
'''---------------------------------------------------
Public Function ExecuteNonQuery(ByVal commandText As String) As Integer
    Dim cmd As ADODB.command
    Set cmd = New ADODB.command
    With cmd
        .ActiveConnection = conn
        .CommandType = adCmdText
        .commandText = commandText
    End With
   
    cmd.Execute
End Function

'''---------------------------------------------------
'''<summary>
'''ExecuteQuery
'''<summary>
'''<param name="commandText"></param>
'''<returns></returns>
'''---------------------------------------------------
Public Function ExecuteQuery(ByVal commandText As String) As Recordset
    Dim cmd As ADODB.command
    Set cmd = New ADODB.command
    With cmd
        .ActiveConnection = conn
        .CommandType = adCmdText
        .commandText = commandText
    End With
   
    Set ExecuteQuery = cmd.Execute
End Function