「My.Application.Info.Version.ToString」で取得できる。

設定の方法は以下の通り。

「MyProject／アプリケーション」で「アセンブリ情報」ボタンを押下し
(「アセンブリバージョン」と)「ファイルバージョン」を変更し、「OK」ボタン押下。
後はリビルドすればOK。

ソリューションエクスプローラで「すべてのファイルを表示」で
「Settings.settings」を表示させダブルクリック。
型は「(接続文字列)」型ということになる。

接続先DBを変更したかったのだが、
VisualStudioから変更ができなさそうなので
該当箇所(接続先情報)をgrepして置換したらうまく変更できた。

アイコンがまず必要だが、Windows上のアイコン(*1)とは違い、
専用のアイコンデータが必要だ。
  *1：サイズ32×32のBMP画像を拡張子「.ico」にしたもの

ということで、変換ツール等を使ってアイコンファイルを作成する。(拡張子は「.ico」)

そうしたら、「My Project／アプリケーション」にて
「アイコン」にそれを設定すれば完了。exeファイルのアイコンがそれになる。

また、各フォームのアイコンを設定するには、フォームのプロパティにて
「Icon」にそれを設定すればよい。

外部結合をつかって、二つの表を対等外部結合してみた。
┌──────────────────────────────────────┐
│SELECT ISNULL([表Ａ].[キー],[表Ｂ].[キー]) AS [キー],                       │
│       [表Ａ].[項目Ａ],                                                     │
│       [表Ｂ].[項目Ｂ]                                                      │
│    FROM [表Ａ]                                                             │
│        FULL JOIN [表Ｂ]                                                    │
│          ON [表Ｂ].[キー] = [表Ａ].[キー]                                  │
└──────────────────────────────────────┘
結果は上々で、以下三パターンのレコードとなった(もちろんキーの重複はなし)。
┌──┬───┬───┐
│キー│項目Ａ│項目Ｂ│
├──┼───┼───┤
│キー│項目Ａ│  －  │
├──┼───┼───┤
│キー│  －  │項目Ｂ│
└──┴───┴───┘

これに気を良くして、三つの表でこれを試みた。
┌──────────────────────────────────────┐
│SELECT ISNULL([表Ａ].[キー],ISNULL([表Ｂ].[キー],[表Ｃ].[キー])) AS [キー], │
│       [表Ａ].[項目Ａ],                                                     │
│       [表Ｂ].[項目Ｂ],                                                     │
│       [表Ｃ].[項目Ｃ]                                                      │
│    FROM [表Ａ]                                                             │
│        FULL JOIN [表Ｂ]                                                    │
│          ON [表Ｂ].[キー] = [表Ａ].[キー]                                  │
│        FULL JOIN [表Ｃ]                                                    │
│          ON [表Ｃ].[キー] = [表Ａ].[キー]                                  │
└──────────────────────────────────────┘
すると基幹となる表がない場合、二つに分裂してしまった。
┌──┬───┬───┬───┐
│キー│項目Ａ│項目Ｂ│項目Ｃ│
├──┼───┼───┼───┤
│キー│項目Ａ│項目Ｂ│  －  │
├──┼───┼───┼───┤
│キー│項目Ａ│  －  │項目Ｃ│
├──┼───┼───┼───┤
│キー│項目Ａ│  －  │  －  │
├──┼───┼───┼───┤
│キー│  －  │項目Ｂ│項目Ｃ│
├──┼───┼───┼───┤
│キー│  －  │項目Ｂ│  －  │←二件レコードができてしまう
│キー│  －  │  －  │項目Ｃ│
└──┴───┴───┴───┘

なので、トーナメントの二段階選抜的な形にしなければならない。
┌──────────────────────────────────────┐
│SELECT ISNULL([連合Ｄ].[キー],[表Ｃ].[キー]) AS [キー],                     │
│       [連合Ｄ].[項目Ａ],                                                   │
│       [連合Ｄ].[項目Ｂ],                                                   │
│       [表Ｃ].[項目Ｃ]                                                      │
│    FROM (                                                                  │
│        SELECT ISNULL([表Ａ].[キー],[表Ｂ].[キー]) AS [キー],               │
│               [表Ａ].[項目Ａ],                                             │
│               [表Ｂ].[項目Ｂ]                                              │
│            FROM [表Ａ]                                                     │
│                FULL JOIN [表Ｂ]                                            │
│                  ON [表Ｂ].[キー] = [表Ａ].[キー]                          │
│    )AS [連合Ｄ]                                                            │
│        FULL JOIN [表Ｃ]                                                    │
│          ON [表Ｃ].[キー] = [連合Ｄ].[キー]                                │
└──────────────────────────────────────┘

でも、これだと四つ以上になった時に複雑度が増していきそうなので
(でもそれこそトーナメント式(B木)で書けたりして(でもいずれにせよ煩雑になりそう))
以下の様に、基準データをあらかじめ決めてから、
そこに左外部結合していくのがいいかも。
┌──────────────────────────────────────┐
│SELECT [基準Ｄ].[キー],                                                     │
│       [表Ａ].[項目Ａ],                                                     │
│       [表Ｂ].[項目Ｂ],                                                     │
│       [表Ｃ].[項目Ｃ]                                                      │
│    FROM (                                                                  │
│        SELECT [キー] FROM [表Ａ]                                           │
│        UNION                                                               │
│        SELECT [キー] FROM [表Ｂ]                                           │
│        UNION                                                               │
│        SELECT [キー] FROM [表Ｃ]                                           │
│    ) AS [基準Ｄ]                                                           │
│        LEFT JOIN [表Ａ]                                                    │
│          ON [表Ａ].[キー] = [基準Ｄ].[キー]                                │
│        LEFT JOIN [表Ｂ]                                                    │
│          ON [表Ｂ].[キー] = [基準Ｄ].[キー]                                │
│        LEFT JOIN [表Ｃ]                                                    │
│          ON [表Ｃ].[キー] = [基準Ｄ].[キー]                                │
└──────────────────────────────────────┘

「.CopyFromRecordset」だとあらかじめ設定していた書式が効かない。

仕方がないので、別途以下みたいな感じで値の貼り付けを行う必要がある。
┌──────────────────────────────────────┐
│With .Columns(1)                                                            │
│    .Value = .Value                                                         │
│    .AutoFit                                                                │
│End With                                                                    │
└──────────────────────────────────────┘

ただ、根本的に解決するには、以下の様に一件ずつ読み込む方式に
変更してしまうのがいいだろう。
┌──────────────────────────────────────┐
│Dim テーブル As New ADODB.Recordset                                         │
├──────────────────────────────────────┤
│Cells(2, 1).CopyFromRecordset テーブル                                      │
└──────────────────────────────────────┘
  ↓
┌──────────────────────────────────────┐
│Dim テーブル As New ADODB.Recordset                                         │
├──────────────────────────────────────┤
│y = 2                                                                       │
│Do Until テーブル.EOF                                                       │
│    For x = 1 To テーブル.Fields.Count                                      │
│        Cells(y, x).Value = テーブル.Fields(x - 1).Value                    │
│    Next x                                                                  │
│    y = y + 1                                                               │
│    テーブル.MoveNext                                                       │
│Loop                                                                        │
└──────────────────────────────────────┘

作業中のブックを保存するのは以下のような感じ。
┌──────────────────────────────────────┐
│ActiveWorkbook.SaveAs fileName:="出力ファイル.xls", _                       │
│                      FileFormat:=XlFileFormat.xlExcel8                     │
├──────────────────────────────────────┤
│ActiveWorkbook.SaveAs fileName:="出力ファイル.xlsx", _                      │
│                      FileFormat:=XlFileFormat.xlOpenXMLWorkbook            │
└──────────────────────────────────────┘
＃上段が「.xls」形式、下段が「.xlsx」形式

保存ダイアログを出してブックを保存するのは以下のような感じ。
┌──────────────────────────────────────┐
│Application.Dialogs(xlDialogSaveAs).Show arg1:="出力ファイル.xls", _        │
│                                         arg2:=XlFileFormat.xlExcel8        │
├──────────────────────────────────────┤
│Application.Dialogs(xlDialogSaveAs).Show arg1:="出力ファイル.xlsx", _       │
│                                         arg2:=XlFileFormat.xlOpenXMLWorkbook
└──────────────────────────────────────┘
＃上段が「.xls」形式、下段が「.xlsx」形式

いずれも、最後に保存しないで閉じるとかを組み合わせるだろう。
┌──────────────────────────────────────┐
│ActiveWorkbook.Close SaveChanges:=False                                     │
└──────────────────────────────────────┘

日付データ(日時データ)を月毎に集計する方法。
┌──────────────────────────────────────┐
│SELECT LEFT(CONVERT(varchar, [日時], 111), 7) AS [年月],                    │
│       SUM([値])                              AS [合計]                     │
│    FROM [表]                                                               │
│    GROUP BY LEFT(CONVERT(varchar, [製造完了日時], 111), 7);                │
└──────────────────────────────────────┘
「YYYY/MM/DD」の形式にして、「YYYY/MM」だけ見て集計する。

小数第二位までで四捨五入する場合は、以下のような感じ。
┌──────────────────────────────────────┐
│ROUND([値], 2)                                                              │
└──────────────────────────────────────┘
でもこれだと「1.230000」後ろに「0」が並ぶので、
これが嫌ならキャストしてあげる。
┌──────────────────────────────────────┐
│CONVERT(decimal(8, 2), ROUND([値], 2))                                      │
└──────────────────────────────────────┘
「1.23」になる。

先方からもらったメールの文字フォントが違うと
返信してもフォントが変わったままになる場合がある。

この原因は「charset」の設定の違いによるもの
・「Content-Type: text/plain; charset="iso-2022-jp"」
・「Content-Type: text/plain; charset="UTF-8"」

後者で文字が変わる場合、以下のように設定を行うと、解消できる。

「ツール」→「オプション」→「表示」→「書式」→「詳細設定」で以下の設定をする。
┌──────────────────────────────────────┐
│フォントと文字エンコーディング                                              │
├──────────────────────────────────────┤
│┌文字エンコーディング──────────────────────────┐│
││メッセージの送受信に使用する既定の文字エンコーディングを設定します。    ││
││              ┌──────────┬─┐                              ││
││送信メッセージ│日本語(ISO-2022-JP) │▼│                              ││
││              ├──────────┼─┤                              ││
││受信メッセージ│日本語(ISO-2022-JP) │▼│                              ││
││              └──────────┴─┘                              ││
││■可能であれば返信メッセージに既定の文字エンコーディングを使用する      ││
│└────────────────────────────────────┘│
└──────────────────────────────────────┘
但し、UTF-8依存文字が混じっていると、変換できずUTF-8のままとなる。