كيف استخدم الاداة Checkedlistbox

شكرا على اي حال

هذا الكودالي سويته , جربته واشتغل

Dim MyCon As New SqlConnection(Conn) 
 Dim Emp_Adp As New SqlDataAdapter("select * from Emp ", MyCon)
Dim Emp_DT As DataTable
Emp_Adp.Fill( Emp_DT)

 Dim Emp_Mission_Adp As New SqlDataAdapter("select * from EmpMission Where MissionDone=1 ", MyCon)
Dim Emp_Mission_DT As DataTable
 Emp_Mission_Adp .Fill(Emp_Mission_DT)


 For Select_Emp As Integer = 0 To Emp_DT.Rows.Count - 1
			Emp_ChkList.SelectedIndex = Selecte_Emp 
			If  Emp_ChkList.SelectedValue = Emp_Mission_DT.Rows(Emp_Mission_DT.Rows.Count - 1).Item("EmpID") Then Emp_ChkList.SetItemChecked(a, True)
		Next