Navn på back end, som overskrift på formularen.

Du kan lægge denne simple funktion i et modul:

Public Function GetBackend() As String
    On Error Resume Next
    Dim tdef As TableDef
    Dim db As Database
    Set db = CurrentDb
    Set tdef = db.TableDefs("en eller anden sammenkædet tabel")
    GetBackend = Mid(tdef.Connect, 11)
End Function

Herefter kan du på formularens VedIndlæsning-hændelse skrive:

Me.Caption = GetBackend

NB: Metoden kræver reference til Microsoft DAO 3.x Object Library

Fungerer fint. Tak

der var jeg lidt for hurtig:
får denne fejlmeddelelse,

Compile error
Ambiguous name detected: GetBackend

reference til Microsoft DAO 3.x Object Library er ok

du har en anden funktion som hedder det samme. Prøv at søg på navnet

Jeg havde en anden funktion med samme navn.
virker nu