With sevText38
.Style = 0
.ListRowsMax = 10
Dim adressen2 As ADODB.Recordset
Set adressen2 = New ADODB.Recordset
With adressen2
.ActiveConnection = conn
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT adr_id, adr_Nr, adr_firma_name from Adressen where adr_aktiv =" & _
  "true order by adr_firma_name"
End With
Set .Recordset = adressen2
.Width = 4000
.CaptionWidth = 1000
.DisplayColumn = 2
.BoundColumn = 1
.AutoComplete = True
.Columns(1).Visible = False
.Columns(2).Width = 1000
.Columns(3).Width = 2000
End With