Listbox будет блоком после удаления, а затем вставьте данные

Question

Я отобразил список, который показывает мне только значение (это связано с таблицей с двумя столбцами coloumns. Я заполняю эту таблицу из текстового файла). Я хотел бы: если новый текстовый файл загружен, старые данные должны быть удалены, и мне будут показаны новые данные.

я могу сделать эту задачу с моим кодом, но ListBox будет блок, и я не в состоянии прокручивать данных (без удаления, он отлично работает, но добавляются новые данные после того, как старые данные)

не могли бы вы рассказать мне, как я могу решить эту проблему? и почему эта проблема возникла?

вот мой код:

Private Sub Command11_Click() 
Dim ifile As Integer 

Dim name As String 
Let ifile = FreeFile 
name = util1.fDateiName("*.lab", "Lable") 
DoCmd.RunSQL ("DELETE * FROM tb_lable_Daten") 'if I delete this Delete command , it works fine(the list box will not be dlocked 
Open name For Input As ifile 
While Not EOF(ifile) 
Line Input #ifile, entireline 
DoCmd.RunSQL ("INSERT INTO tb_lable_Daten (name) VALUES ('" & entireline & "');") 
Wend 
List5.Requery 
List5.SetFocus 
MsgBox ("Successfully saved") 
End Sub 

Answer 1

Я нашел его :)

Я прочитал это post. Если бы я изменить мой код:

... 
Me.RecordSource = "" 
DoCmd.RunSQL ("DELETE * FROM tb_lable_Daten") 
Me.RecordSource = "SELECT name FROM tb_lable_Daten" 
... 

, что работает отлично