Run initial select statement to obtain column names
dta = New OleDbDataAdapter("Select * from [linexcel$])
Dim tbl As New DataTable
dta.Fill(tbl)
' Column B and D would would be at index 1 & 3 respectively
Dim ColBName As String = tbl.Columns(1).ColumnName
Dim ColDName As String = tbl.Columns(3).ColumnName
dta = New OleDbDataAdapter("Select " & ColBName & "," & ColDName & " from [linexcel$]"