مساعدة في تعديل كود تصدير البيانات إلى أكسس

السلام عليكم..

هذا الكود لعملية تصدير البيانات إلى ملف أكسس وهو يقوم بتصدير البيانات بناءاً على القيمة المحدد من الكومبو بوكس .أريد التعديل في الكود لتتم عملية لتصدير بناءاً على

عناصر الليست بوكس كلها.

		If opt1.Checked = True Then
			Dim sql As String = "select [code],[sch_name],[emp_name],[employment],[emp_file],[email],[emp_phone] from [e_tab]where[employment] = '" & emp_file.Text & "' order by emp_name"
			Dim ds As New DataSet
			Dim adpater As New OleDbDataAdapter(sql, db)
			adpater.Fill(ds, "e_tab")
			'_______________________________________________________________________
			Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass
			Dim Book As Microsoft.Office.Interop.Excel.Workbook
			Dim Sheet As Microsoft.Office.Interop.Excel.Worksheet
			Book = excel.Workbooks.Add()
			Sheet = Book.ActiveSheet()
			Dim dt As System.Data.DataTable = ds.Tables(0)
			Dim dc As System.Data.DataColumn
			Dim dr As System.Data.DataRow
			Dim colIndex As Integer = 0
			Dim rowIndex As Integer = 0
			For Each dc In dt.Columns
				colIndex = colIndex + 1
				excel.Cells(1, colIndex) = dc.ColumnName
			Next
			For Each dr In dt.Rows
				rowIndex = rowIndex + 1
				colIndex = 0
				For Each dc In dt.Columns
					colIndex = colIndex + 1
					excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
				Next
			Next
			Sheet.Columns.AutoFit()
			Dim strFileName As String = "C:\EXPORT_TO_EXCEL.xls"
			Dim blnFileOpen As Boolean = False
			Try
				Dim fileTemp As System.IO.FileStream = System.IO.File.OpenWrite(strFileName)
				fileTemp.Close()
			Catch ex As Exception
				blnFileOpen = False
			End Try
			If System.IO.File.Exists(strFileName) Then
				System.IO.File.Delete(strFileName)
			End If
			Book.SaveAs(strFileName)
			excel.Workbooks.Open(strFileName)
			excel.Visible = True
		End If