ReUsed Flexcode ADOC Connection
Back in 2019 I was working for a consulting firm which this came in handle, I dont think I will ever need to go back to an ERP system and specially dont think I will need to work with flexcode again. Still this was something that I found and might help someone else. Public Sub Database_Connection() Do If cn1.State = 1 Then Exit Sub On Error Resume Next Set cn1 = macForm.ConnInfo.OpenADOConn On Error GoTo 0 Loop End Sub