For zone = 1 To 20
 
  dbfilename = App.Path & "\" & "Belegarchiv.mdb"
  Set db = Workspaces(0).OpenDatabase(dbfilename, _
    False, False)
 
 
If frm_start.chk1(zone).Value = 1 Then
  Select Case zone
'Zone1
  Case 1: SQL = "SELECT * FROM 2011 WHERE [E-Datum] between #" & Format$( _
    datvon, "m-d-yy") & "# AND #" & Format$(datbis, "m-d-yy") & "# And TZ = '1'"
'Zone7
  Case 2: SQL = "SELECT * FROM 2011 WHERE [E-Datum] between #" & Format$( _
    datvon, "m-d-yy") & "# AND #" & Format$(datbis, "m-d-yy") & "# And TZ = '7'"
'Zone12
  Case 3: SQL = SQL & "SELECT * FROM 2011 WHERE [E-Datum] between #" & Format$( _
    datvon, "m-d-yy") & "# AND #" & Format$(datbis, "m-d-yy") & "# And TZ =" & _
    "'12'"
'Zone15
  Case 4:
 
    ' usw ...
 
 
  End Select
 
End If
 Next zone
 
  Set oRecordset = db.OpenRecordset(SQL)