新人求助

Question

        Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\123.mdb"
        Dim conn As OleDbConnection = New OleDbConnection(strconn)
        conn.Open()
        For i = 0 To 100000
            Dim sqlstr As String = "INSERT INTO times (字段1) VALUES (“'数据" & i & "')"
            Dim comm As OleDbCommand = New OleDbCommand(sqlstr, conn)
            comm.ExecuteReader()
        Next

Answer 1

        Dim sqlstr As String = "select 字段1 from times "
        Dim comm As OleDbCommand = New OleDbCommand(sqlstr, conn)
        conn.Open()
        Dim r As OleDbDataReader = comm.ExecuteReader()
        Do While r.Read
            ListBox1.Items.Add(r("字段1"))
        Loop然后把所有记录添加到下列表里。。
代码全都有了，，具体怎么显示，看你了。