Dim dt1 As New DataTable
Dim dlebgrab As String = "SELECT * FROM departmenttbl"
Dim cmd As New OleDbCommand(dlebgrab, connection)
Dim adtp As New OleDbDataAdapter(cmd)
adtp.SelectCommand = cmd
adtp.Fill(dt1)
CheckedListBox1.DisplayMember = "dename"
CheckedListBox1.ValueMember = "deno"
CheckedListBox1.DataSource = dt1