windows事件日志写入sqlserver

　　Set objConn = CreateObject("ADODB.Connection")　　Set objRS = CreateObject("ADODB.Recordset")　　objConn.Open "Provider=SQLOLEDB.1;Password=****;Persist Security Info=True;User ID=zhang;Initial Catalog=IPOPJ;Data Sou