'ermittelt die aktuellen Daten der Suchliste
 
    Set rsArtikel = New Recordset
 
    rsArtikel.ActiveConnection = connAllgemein
    rsArtikel.Source = "gp_ExtremwertArtikelSuchliste"
    rsArtikel.LockType = adLockReadOnly
    rsArtikel.CursorLocation = adUseClient
    rsArtikel.CursorType = adOpenStatic
 
    rsArtikel.Open Options:=adCmdStoredProc
 
    With cboSuchlisteArtikel
       Set .RowSource = rsArtikel
       .BoundColumn = "Artikel_Nr"
       .ListField = "Name"
    End With