SqlServerに新しくテーブルを作り　VBも新しくフォームを作って実行したところ
正常に動きました。　
るきおさん　葉月さん　ありがとうございました。