Dim rs As ADODB.Recordset
Dim dummy As String
Dim l As Long
    With txtArtikelnummer
    Debug.Print "S" & .selStart
    Dummy = Trim$(.Text)
    l = Len(dummy)
    If  l >= 5 Then
        Set rs = Db.Recordset("SELECT top 99 artnr,benennung FROM ....usw.")
        If Not rs.EOF Then
            Set .Recordset = rs
            .DroppedDown = True
        Else
            Set .Recordset = Nothing
            .DroppedDown = False
        End If
    Else
        Set .Recordset = Nothing
        .DroppedDown = False
    End If
    Debug.Print "E" & .selStart
    End With