With sevGrid4
        If .Columns(nCol).Key = "EinCode" Then
           aRs_Close
           sSQL = "SELECT * FROM tblzustieg ORDER BY ZuText"
           aRs.CursorLocation = adUseClient
           aRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
           aRsOpen = True
           If aRs.RecordCount = 0 Then
              MsgBox "Es sind keine Zusteigeorte angelegt ..."
              Exit Sub
           End If
           aRs.MoveFirst
           With oComboBox
               .ColumnAdd , "code", 1000
               .ColumnAdd , "zustieg", 6000
               Do While Not aRs.EOF
                  .AddItem aRs!ZuCode & vbTab & aRs!ZuText
                  aRs.MoveNext
               Loop
               ' Autocomplete aktivieren
               .AutoComplete = True
           End With
        End If
    End With