De eerste reeks listBoxen noemen lst0, LST1,....LST6
De rij daaronder Tekst68, Tekst69,...Tekst74 en verder nummeren ze door.
Heb je daar een bedoeling mee? of zou je net zoals ik ze   lst + Weeknummer +DagVanDeWeek noemen.

Wat ik zou doen is alle listboxen bijDubbelClick de zelfde actie (sub) laten uitvoeren. De Listbox zelf zou ik als parameter meegeven en als dat niet gaat, de naam van de listbox.

Ik probeer vandaag of morgen er een vbtje te maken.

in bijlage een vb op jouw database maar voorlopig werkt enkel lst01.

Ik zou ook gedaan hebben wat jij deed: Het formulier openen en de waarde van de datum voor txtDatum op frmActiviteitInvoer instellen. Het doorgeven van data gebeurt echter nog NA Form_Current zodat de daar de rowsource van lstActiviteiten niet kan instellen. Ik stelde dus de rowsource in bij het openen van het formulier.
Private Sub OpenActiviteitenInvoer(Dag As Date)
    DoCmd.OpenForm "frmActiviteitInvoer"
    Forms!frmActiviteitInvoer.txtDatum = CStr(Dag)
   
    Forms!frmActiviteitInvoer.lstActiviteiten.RowSource = "SELECT tblActiviteiten.omschrijving, tblActiviteiten.soort, tblActiviteiten.info, tblActiviteiten.actID FROM tblActiviteiten WHERE tblActiviteiten.startdatum=#" & CStr(maakUSdatum(Dag)) & "#"
   
   
End Sub
Bij elke dubbelClick event zou je deze code moeten hebben
Private Sub lst01_DblClick(Cancel As Integer)
    Dim Labelnaam As String
    Labelnaam = "lbl" & CStr(CInt(Right(Me.ActiveControl.Name, 2)) + 10)
    'MsgBox Me.Controls(Labelnaam).Caption
    Dim GeslecteerdeDatum As Date
    GeslecteerdeDatum = CVDate(Me.Controls(Labelnaam).Caption & "/" & txtMonth & "/" & txtYear)
    OpenActiviteitenInvoer  GeslecteerdeDatum
End Sub
Labelnaam = "lbl" & CStr(CInt(Right(Me.ActiveControl.Name, 2)) + 10)
Moest ik doen omdat jij je labels anders nummert dan je tekstboxen. Wat ik dus zou vermijden

Hopelijk raak je er wat aan uit en anders vraag je t maar hé.

In elk geval is het elegant nummeren van je labels en txtboxen de sleutel tot een mooie/eenvoudige oplossing.