access,简单的把表的2个字段在listbox里显示，怎么不行啊。。。

Private Sub UseDataReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UseDataReader.Click
        ListBox1.Items.Clear()
        Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database1.accdb")

        Dim dr As OleDbDataReader
        Dim cmd As OleDbCommand
        cn.Open()

        With cmd
            .CommandText = "select nachname,vorname from people"
            .Connection = cn
        End With

        dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Dim strname As String
        While dr.Read
            strname = dr("nachname") & "," & dr("vorname")
            ListBox1.Items.Add(strname)


        End While
        

    End Sub


各位大哥，抽个小空帮我看看好吗？急死我了，就这么简单的一个东西，怎么就出不来啊，55555 --------------------编程问答-------------------- 上面代码中,看不出来cmd作过初始化.
在使用cmd之前.
cmd=conn.createcommand --------------------编程问答-------------------- 你就同写显示语句吧？先Update再show一下？ --------------------编程问答-------------------- 看了代码，没有问题啊。
只是在事件结束的时候忘了关闭datareader , dr.Close()

单步调试一下，再循环里面打断点，看是否从数据库得到了数据。

补充：.NET技术 ,  VB.NET