Dim M(1000, 1000)
        Dim X As Integer
        Dim Y As Integer
        Dim ItmX As ListViewItem

        Dim DBConn As Object
        Dim adoRs As Object
        adoRs = CreateObject("ADODB.Recordset")
        DBConn = CreateObject("ADODB.Connection")
        Dim PathBase As String : PathBase = "c:\1CBases\ShortBase\"

        DBConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathBase & ";Extended Properties=""DBASE IV;"";")
        adoRs = DBConn.Execute("select * from sc133")
        M = adoRs.GetRows()
        TextBox1.Text = adoRs.RecordCount()
        'TextBox2.Text = adoRs.Fields.Item(0).value
        For X = 0 To UBound(M, 1)
            ListView1.Columns.Add("" & adoRs.Fields.Item(X).Name, 100, HorizontalAlignment.Left)
        Next

        For X = 0 To UBound(M, 2)
            ItmX = ListView1.Items.Add("" & M(0, X))
            For Y = 1 To UBound(M, 1)
                ItmX.SubItems.Add("" & M(Y, X))
            Next
        Next