Sub timKeyword_Timer ()

    tblKeywordDescription.Index = "idxKeywordDescription2" 'identify search index
    'add the next 100 keywords to the combo box
    Do Until i% = 100
        i% = i% + 1                                        'count keywords displayed
        tblKeywordDescription.Seek ">", dclKeyword         'find next keyword
        If tblKeywordDescription.NoMatch Then              'if EOF then
            timKeyword.Enabled = False                     '  disable this control (stop async process)
            Exit Sub                                       '  exit this procedure
        Else
        'if keyword exists then add to combo box
            If Not IsNull(tblKeywordDescription("KeywordDescription")) Then
                dclKeyword = tblKeywordDescription("KeywordDescription")
                cboKeyword.AddItem dclKeyword
            End If
        End If
    Loop

End Sub
