SELECT  COLUMN_NAME FROM INFORMATION_SCHEMA.Columns WHERE TABLE_NAME = _
  'DER_TAB_NAME'

    Function GetColumns(ByVal FromTable As String) As DataTable
        Dim sql As String = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.Columns" & _
          "WHERE TABLE_NAME = '" + FromTable + "'"
        Dim cn As New OleDb.OleDbConnection("DEIN_CONN_STRING")
        Dim da As New OleDb.OleDbDataAdapter(sql, cn.ConnectionString)
        Dim dt As New DataTable("Columns_" + FromTable)
        da.Fill(dt)
        Return dt
    End Function

  For Each r As DataRow In GetColumns("WAS_WEISS_ICH").Rows
            Debug.Write(r(0).ToString)
        Next