Sub cboKeyword_DropDown ()
       
    'if no keywords are currently displayed in the combo box then display them now
    If cboKeyword.ListCount <= 1 Then                           'list empty; no keywords loaded
        screen.MousePointer = 11                                'mouse=hourglass
        tblKeywordDescription.Index = "idxKeywordDescription2"  'identify search index
        dclKeyword = CStr(&H0&)                                 'set search key to low values
        tblKeywordDescription.Seek ">", dclKeyword              'find first keyword
        'add up to the first 200 keywords to the combo box
        Do Until tblKeywordDescription.NoMatch Or i% > 200
            'if keyword exists then add to combo box
            If Not IsNull(tblKeywordDescription("KeywordDescription")) Then
                dclKeyword = tblKeywordDescription("KeywordDescription")
                cboKeyword.AddItem dclKeyword
            End If
            tblKeywordDescription.Seek ">", dclKeyword          'find next keyword
            i% = i% + 1                                         'count keywords displayed
        Loop
        'if there are more keywords on file, then kick off asynchronous procedure
        If i% > 200 Then timKeyword.Enabled = True
        screen.MousePointer = 0                                 'reset mouse to default
    End If
                                                                'clear input box
    txtAdd.Text = ""

End Sub
