Hey,
Thats the code im using for my starup form, to check if linked tables have a connection:
Private Sub Form_Open(Cancel As Integer)
Dim LinkSt, errSt
On Error GoTo err_Handler
Debug.Print "[Start Link]" & CurrentDb.TableDefs("tblArhivARM").Connect
LinkSt = DLookup("Nazv", "tblArhvOpir")...