Hello,

I’m having a issue with trying to keep the load time down when populating the DataGridView. Can anyone look at my code below and give me some examples of where I can make some changes in order to cut the time down? I’ve already disabled RowsHeader View and RowsHeaderWidth.

Thanks in advance!


Code:
Private Sub INV_Extended_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try

            Dim LinkConnInv As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = R:\1-Inbox-Jason\RHP_File_Pool; Extended Properties = dBase III; User ID=;Password="
            Dim conInv As OleDbConnection = New OleDbConnection()
            conInv.ConnectionString = LinkConnInv
            conInv.Open()


            Dim QueryInv As String = "Select PARTNO, DESCRIPT, MODELNO, MANUFACTER, ONHAND, ONORDER from INV"
            Dim adapaterInv As OleDbDataAdapter = New OleDbDataAdapter(QueryInv, conInv)
            Dim dsInv As DataSet = New DataSet()
            adapaterInv.Fill(dsInv)
            conInv.Close()
            conInv.Dispose()
            Me.DataGridViewINV.DataSource = dsInv.Tables(0)

            Dim INVcolPARTNO As DataGridViewColumn = DataGridViewINV.Columns(0)
            INVcolPARTNO.Visible = True
            Dim INVcolDESCRIPT As DataGridViewColumn = DataGridViewINV.Columns(1)
            INVcolDESCRIPT.Visible = True
            Dim INVcolMODELNO As DataGridViewColumn = DataGridViewINV.Columns(2)
            INVcolMODELNO.Visible = True
            Dim INVcolMANCFACT As DataGridViewColumn = DataGridViewINV.Columns(3)
            INVcolMANCFACT.Visible = True
            Dim INVcolONHAND As DataGridViewColumn = DataGridViewINV.Columns(4)
            INVcolONHAND.Visible = True
            Dim INVcolONORDER As DataGridViewColumn = DataGridViewINV.Columns(5)
            INVcolONORDER.Visible = True

        Catch ex As Exception
            MsgBox("Error while connecting to the database." & vbNewLine & ex.Message)
        End Try

    End Sub