The database information is read into the memory array

Data | database | Arrays In general, it is easier to process small amounts of data if you read the data into a simple memory array. The following methods provide a Ado.net object to load information from the database to an array, and the array can be expanded arbitrarily.

Enter the following code in the header of the default form:
Imports System.Data.OleDb
In the Click event of the button:
Private Sub button1_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button1.Click
Dim MyConn as OleDbConnection
Dim myCMD as OleDbCommand
Dim myreader as OleDbDataReader
Dim Myconnstr as String
Dim myarray (0) as String
Dim I as Integer

Myconnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=jlgl.mdb"
myconn = New OleDbConnection (myconnstr)
myCMD = New OleDbCommand ()
Mycmd.commandtype = CommandType.Text
Mycmd.commandtext = "SELECT * FROM JXB"
Mycmd.connection = myconn
MyConn.Open ()
myreader = Mycmd.executereader
Do While Myreader.read
MyArray (i) = myreader! Factory number
TextBox1.Text = TextBox1.Text & MyArray (i) & VbCrLf
ReDim Preserve myarray (UBound (myarray) + 1)
i + 1
Loop
Label1.Text = i ' I for the number of record bars

Myconn.close ()

End Sub