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