Private Sub tBaugruppe_GotFocus()
On Error Resume Next
tBaugruppe.DroppedDown = True

Dim rs As New ADODB.Recordset
Dim sql As String
 
On Error GoTo fillBaugruppenErr
sql = "Select ID,Baugruppe From Baugruppen Where Passiv <> -1 Order By Baugruppe"
 
If fillRecordset(cnDB, rs, sql) Then   'lädt die Daten ins Recordset
    sevT.Style = rsComboBox
    sevT.AutoComplete = True
    Set sevT.Recordset = rs
    sevT.DisplayColumn = 2
    sevT.Columns("ID").Visible = False
    rs.Close
End If
Set rs = Nothing
Exit Sub
 
fillBaugruppenErr:
MsgBox Err.Description, vbExclamation + vbOKOnly, "modStammdaten," & _
  "fillBaugruppen"
Err.Clear