YuOさん、しるふぃんさん
ありがとうございます。
解りやすく、丁寧で迅速なアドバイスに感激です。

解決しました。

＞SQL文が発行されたため，0001は数値1として扱われ
知りませんでした。

＞実際には、"Insert Into Vaalues('" & TextK & "','','','','','','','','','','','','','','','','','','','','','','','','有効','',yes)"
これで、ＯＫでした。
なんとなく、シングルコーテーションで解決できると思っていたのですが
& 'TextK' &  とやってしまい、演算子がありませんというエラーが発生しチンプンカンプンでした。
いま、そのエラーメッセージの意味も解りました。

＞パラメータを使う方法については，
YuOさん推奨とありますので、これで解決したく、いま、読んでいるところです。
申し訳けありませんが明朝、結果（又は、質問）をご報告いたします。

＞INSERT文に列名を指定することで
できました。

ありがとうございました。取り急ぎ、ご報告いたします。