Dim SQL As String
Dim sDatum As String
Dim eDatum As String
Dim iWeekDay As Integer
 
sDatum = Format$(DateAdd("d", -7, Date), "m-d-yy")
eDatum = Format$(Now, "m-d-yy")
 
SQL = "SELECT ID, Datum FROM TABELLE WHERE Datum BETWEEN #" & sDatum & "# AND" & _
  "#" & eDatum & "#"
 
Dim Rs As Recordset
Set Rs = Db.OpenRecordset(SQL)
 
If Rs.RecordCount > 0 Then
  Do Until Rs.EOF
    <font color=green>' Wochentag prüfen</font>
    iWeekDay = WeekDay(CDate(Rs("Datum")))
    If iWeekDay <> 1 And iWeekDay <> 7 Then
      List1.AddItem CStr(Rs("ID"))
    End If
    Rs.MoveNext
  Loop
End If
 
Rs.Close