Private Sub showall_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim mainform As New Form1()

        Dim reader As OleDb.OleDbDataReader

        mainform.OleDbCommand1.CommandText = "select * from txl"

        mainform.OleDbConnection1.Open()

        reader = mainform.OleDbCommand1.ExecuteReader ''''返回所有纪录

        Do While reader.Read ''''用listview列出所有纪录

            Dim li As New ListViewItem()

            li.SubItems.Clear()

            li.SubItems(0).Text = reader("name").ToString

            li.SubItems.Add(reader("mobilephone").ToString)

            li.SubItems.Add(reader("homephone").ToString)

            li.SubItems.Add(reader("email").ToString)

            ListView1.Items.Add(li)

        Loop

        reader.Close()

        mainform.OleDbConnection1.Close() ''''关闭连接

    End Sub

至此，关键代码就这么多，详细代码请看我原文件。