Sub ProcessEvent(App) strDBUser = “sa” strDBPass = “Mskge2018.” strDBServer = “10.20.0.21” strDBName = “LOGO” Set conn = CreateObject(“ADODB.Connection”) conn.ConnectionString = “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=” &...