お早うございます。他路です。

パラメータの件、断念しました。まだ、私にはハードルが高いようです。
申し訳けありません。勉強します。

先の件は、最終的に次のようになりました。
おかげさまで、解りやすく、すっきりとなりました。

Com = New OleDb.OleDbCommand("INSERT INTO 基礎全データ (管理番号,有効撤去,CK) Values('" & TextK.PadLeft(4, "0") & "','有効',Yes)", cn)

YuOさん、しるふぃんさん、ありがとうございました。
解決とさせていただきます。