Private Sub sevText_GotFocus(Index As Integer)
Dim sSQL As String
Dim oRs As New ADODB.Recordset
Dim tblname
 
Select Case Index
       Case 5, 8, 9, 10, 7, 11, 12
           With sevText(Index)
              If dbOpen("C:\BPSADO_Lager\DB\BPS.mdb") Then
 
                 Select Case Index
                        Case 5: tblname = "tblSTA_Lieferanten"
                        Case 8: tblname = "tblSTA_Saison"
                        Case 9: tblname = "tblSTA_Warengruppen"
                        Case 10: tblname = "tblSTA_Hauptgruppen"
                        Case 7: tblname = "tblSTA_Farben"
                        Case 11: tblname = "tblSTA_Groessenschluessel"
                        Case 12: tblname = "tblSTA_Filialen"
                 End Select
                 sSQL = "SELECT Name, Nr FROM " & tblname & " ORDER BY Name"
                 oRs.CursorLocation = adUseClient
                 oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic
 
                 Set .Recordset = oRs
 
                .Style = rsDropDownList
                .DelayTimeListSearch = 3
 
                .DisplayColumn = 2       '2te Spalte 'Nr' wird angezeigt
 
                .ListWidth = 3000
                .Columns("Nr").Width = 800
                .Columns("Name").Width = 2000
 
                oRs.Close
                Set oRs = Nothing
 
             End If
           End With
End Select
 
End Sub