После некоторых изменений данные удаляются автоматически пожалуйста помогите мне

---

Я создаю проект. *Я хочу, чтобы при запуске строки меню формы form2 запись отображалась автоматически.
база данных Access
vb.net 2010
подключение через кодирование
используйте соединительный модуль
------------------------------------
в случае загрузки формы
подключение к вызову
вызовите showdata '- - - *я хочу, чтобы при запуске строки меню формы form2 запись отображалась автоматически.
----------------------------------------------
вызовите кодирование showdata

dim ds as new dataset
dim dt as new datatable
ds.table.add(dt)
dim da as new oledbdataadapter
da=new oledbdataadapter("select * from company", cn)' here cn =connection
da.fill(dt)
text1.text=dt.rows(0).item(0)
text2.text=dt.rows(0).item(1)

Кодирование, показывающее данные идеально после добавления данных

Но когда я что-то другое меняю кодировку (например, я добавляю текстовое поле для отображения даты и времени) и сохраняю, затем запускаю приложение и получаю форму 2. все записи удаляются автоматически. затем я добавляю запись и останавливаю приложение, а затем запускаю 100 раз, но когда я нажимаю кнопку Сохранить после удаления/добавления некоторого пустого пространства окна кодирования, когда я запускаю приложение и открываю форму2, записи нет. Пожалуйста, помогите мне

Что я уже пробовал:

dim ds as new dataset
dim dt as new datatable
ds.table.add(dt)
dim da as new oledbdataadapter
da=new oledbdataadapter("select * from company", cn)
da.fill(dt)
text1.text=dt.rows(0).item(0)
text2.text=dt.rows(0).item(1)

---