回答ありがとうございます。

Con.Closeは　　End Usingを書けば必要ないという事でしたので
CLOSEされていると思うんですが・・・
（con.CLOSEを書くとエラーになります）

LISTBOX_SET()にて　DBの更新　ListBox1.DataSource = LISTのＬＩＳＴの内容は
合ってるんですが　ＬＩＳＴBOXの表示のみが上手くいきません。

まだ　本を見ながらの入力ですので　用語を理解していない部分が
ありますので　違う意味ならもう少し詳しく教えていただけないでしょうか

よろしくお願いします。