如何在vb.net中恢复select查询结果

这是我的代码，它不会恢复我列表中select查询的结果：

Imports Oracle.DataAccess.Client

Public Class ListForm

Private Sub ListForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim cn As OracleConnection
    cn = New OracleConnection("User ID=admin;password=admin;")
    Dim cmd As New OracleCommand()
    cmd.Connection = cn
    cn.Open()
    cmd.CommandText = "select name from system.Table"
    Dim dr As OracleDataReader = cmd.ExecuteReader()
    While dr.Read()
        List.Items.Add(dr.GetValue(0))
    End While
    dr.Close()
End Sub

End Class

---

在循环中放置一个断点，然后查看调用list.items.add方法的次数。如果为零，请检查数据库查询。如果已执行，请检查dr.GetValue（0）的值。如果正常，您可能需要刷新列表。

要提供更多详细信息，程序正常运行，但列表保持为空！循环在任何时候都不会执行，而且我的DB是正确的，当我直接在oracle中执行“select name from system.Table；”时，它给出了2行。。