Die selektierten Werte einer CheckBoxList kann mit der folgenden Schleife abfragen und in diesem Beispiel an einen Select-Befehl anhängen:
For i = 0 To cblObject.Items.Count - 1
If cblObject.Items(i).Selected Then
SelectStatement = SelectStatement & " and " & cblObject.Items(i).value & "=-1 "
End If
Next