Вы можете сделать это, создав условие WHERE.
Поскольку конечный SQL должен быть примерно таким:
SELECT EmpID, Name, Dept FROM Employees WHERE EmpID='001' OR EmpID='003';
Или, если ваша база данных поддерживает это:
SELECT EmpID, Name, Dept FROM Employees WHERE EmpID IN ('001', '003');
Вам просто нужно пройти через все свои флажки и создать строку, используя что-то вроде:
'Find each checked item
For Index = 0 to CheckListBox.ListCount - 1
If CheckListBox.Selected(Index) Then
'Append to an ID list string
If IDList <> "" Then IDList = IDList & ", "
IDList = IDList & "'" & Format(CheckListBox.ItemData(Index), "000") & "'"
End IF
Next
'Create the final SQL statement
If IDList <> "" Then
Query = "SELECT EmpID, Name, Dept FROM Employees WHERE EmpID IN (" & IDList & ");"
End If
Быть более конкретным, чем это, трудно, не зная, какой движок и библиотеку базы данных вы используете, структуру управления флажками или схему базы данных.