ＳＱＬ文発行時に、文字列として値をセットしているのではなく、数値として入力してしまっているのが
原因です。

0001ではなく、'0001'（シングルコーテーション）でくくれば問題ないはずです。

実際には、"Insert Into Vaalues('" & TextK & "','','','','','','','','','','','','','','','','','','','','','','','','有効','',yes)"
な感じになるかと。

②については、YuOさんのおっしゃるとおりですね。
余談ですが、Update文も同じようにできますよ。