Private Sub TextboxenLaden()
'Aufgabe : alle Textboxen mit Stammdaten füllen
 
Dim sSQL As String
Dim oRs As New ADODB.Recordset
Dim tblname$
Dim i&
Dim yy%, index%
 
For yy = 1 To 6
   index = Choose(yy, 0, 9, 10, 11, 8, 12)
   With sevText(index)
      If dbOpen("C:\BPSADO_Lager\DB\BPS.mdb") Then
         Select Case index
                Case 0: tblname = "tblSTA_Lieferanten"
                Case 9: tblname = "tblSTA_Saison"
                Case 10: tblname = "tblSTA_Warengruppen"
                Case 11: tblname = "tblSTA_Hauptgruppen"
                Case 8: tblname = "tblSTA_Farben"
                Case 12: 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
 
        .ColumnAdd , "Name", 1800
        .ColumnAdd , "Nr", 1000, 0
        .ListWidth = 3000
 
         oRs.MoveFirst
         For i = 0 To oRs.RecordCount - 1
           .AddItem oRs.Fields("Name").Value & vbTab & oRs.Fields("Nr").Value
            oRs.MoveNext
         Next i
 
        .Style = rsDropDownList
        .DelayTimeListSearch = 3
        .DisplayColumn = 2        '2te Spalte 'Nr' wird angezeigt
 
         oRs.Close
         Set oRs = Nothing
      End If
   End With
Next yy
 
End Sub