Private Sub cmddb_Click()
'Select Case Index
cddb.ShowOpen
        p$ = CurDir$ 'Vorgabe-Pfad
        F$ = "TimeManagerNG.mdb" 'Vorgabe-Datei
        a$ =
        If Right$(p$, 1) <> "\" Then p$ = p$ + "\"
        If Len(a$) Then frmTimeManager.Data.DatabaseName = p$ + a$
        If Len(a$) Then frmTimeManager.Data.RecordSource = "TimeManager"
        If Len(a$) Then frmTimeManager.Data.Refresh
        If Len(a$) Then lbldb = p$ + a$
End Sub