Vba 删除后将阻止列表框，然后插入数据

我有一个列表框，它只显示一个值（它与一个只有两个冒号的表相关。我从一个文本文件填充这个表）。我想，如果一个新的文本文件被加载，那么旧的数据应该被删除，新的数据应该显示给我

我可以用我的代码完成这项任务，但是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

我找到了：）

我读过这个。如果我将代码更改为：

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

---

很好

你能澄清一下问题吗？“列表框将被阻止”是什么意思？哪个部分不工作？正如我所说，我无法选择列表中的值。如果我关闭表单，然后打开表单，它工作正常（我可以选择值）