I have embedded a combobox on Sheet dsbPositionBoard. I want to populate that combobox with the contents of column A6:A from refAllEmployeesAnnualized sheet.
So far, this is what I have worked out, but I am stuck and can't get it to work.
Imports System.Data.OleDb Imports Microsoft.Office.Interop.Excel Imports Microsoft.Office.Interop Public Class dsbPositionBoard Private Sub dsbPositionBoard_Startup() Handles Me.Startup Using MyConnection As New System.Data.OleDb.OleDbConnection() MyConnection.Open() Dim da As New OleDbDataAdapter("SELECT DISTINCT * FROM [refAllEmployeesAnnualized$A6:A]", MyConnection) Dim dt As New DataTable da.Fill(dt) cmbSelectPosition.DisplayMember = dt.Columns(0).ColumnName cmbSelectPosition.DataSource = dt End Using End Sub