如何将审计日志从excel vba写入SQL表

Question

以下是我到目前为止所尝试的内容。我不经常与VBA合作，我认为有一些明显的错误。 live是我用于服务器的名称。

Sub GetDataFromADO()

'Declare variables'
    Set objMyConn = New ADODB.Connection
    Set objMyCmd = New ADODB.Command
    Set objMyRecordset = New ADODB.Recordset

'Open Connection'
    objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=live;User ID=user;Password=123456;"
    objMyConn.Open

'Set and Excecute SQL Command'
    Set objMyCmd.ActiveConnection = objMyConn
    objMyCmd.CommandText = "select * from Audit"
    objMyCmd.CommandType = adCmdText
    objMyCmd.Execute

'Open Recordset'
    Set objMyRecordset.ActiveConnection = objMyConn
    objMyRecordset.Open objMyCmd

'Copy Data to Excel'
    MsgBox Environ("username")
    MsgBox Environ("computername")


End Sub