regarding more time to load listview items

[deshpandesn]

i have used listview to select item from it . also i am providing search from text box on key up event in vb6. listview contains approx 36000 item . database is in ms access. it tooks lot of time to display characters and corresponding listview items. pl. help me

i have used following code

Private Sub txtItemName_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Handler
    ListView1.Visible = True
    If (KeyCode <> 37 And KeyCode <> 38 And KeyCode <> 39 And KeyCode <> 40 And KeyCode <> 27 And KeyCode <> 13) Then
        txtItemName.ForeColor = vbBlack
        string1 = Trim(txtItemName.Text) & "%"
        ListView1.Visible = True
        ListView1.FullRowSelect = True
        ListView1.ColumnHeaders.Clear
        ListView1.ListItems.Clear
        ListView1.View = lvwReport
        ListView1.GridLines = True
        
        ListView1.ColumnHeaders.Add , , "Item Name", 3000
        ListView1.ColumnHeaders.Add , , "Pkg.", 1200
        ListView1.ColumnHeaders.Add , , "Mfg.Code", 1000
        
                Set rs3 = cn.Execute("Select * from M_Itemmaster Where ItemName like '" & string1 & "'")
                While Not rs3.EOF
                    flgFound = True
                                If Not IsNull(rs3("ItemName")) Then ItemName = rs3("ItemName")
                                If Not IsNull(rs3("Packing")) Then Packing = rs3("Packing")
                                If Not IsNull(rs3("MfgCode")) Then MfgCode = rs3("MfgCode")
                                
                                    Set itmX = ListView1.ListItems.Add(, , CStr(ItemName))
                                    itmX.SubItems(1) = CStr(Packing)
                                    itmX.SubItems(2) = CStr(MfgCode)
                                    
                                rs3.MoveNext
                Wend
                If Not flgFound Then
                MsgBox "No Record Exists"
                txtItemName.SetFocus
                Exit Sub
                End If
                rs3.Close
                Set rs3 = Nothing
                ListView1.FullRowSelect = True
                ListView1.Visible = True
           
    ElseIf KeyCode = 40 Then
        If ListView1.Visible = True Then
            ListView1.SetFocus
            Set itmX = ListView1.SelectedItem
 
            lblCompany.Caption = ""
            Set rs = cn.Execute("Select * From CompanyMaster where MfgCode = '" & itmX.SubItems(2) & "'")
            If Not rs.EOF Then
                lblCompany.Caption = rs("CompanyName")
            End If
            rs.Close
            Set rs = Nothing
            Call AddBatchDetails(itmX)
            ListView1.SetFocus
        End If
    ElseIf KeyCode = 27 Then
            Unload Me
'        ListView1.Visible = False
    End If
Err_Handler:
Exit Sub
    Call ERROR_DISPLAY(Err.Number)
End Sub