FillCombo Combo1, 1
FillCombo Combo2, 2
FillCombo Combo3, 3

Private Sub FillCombo(Combo As ComboBox, ByVal iLiga As Integer)
  Dim Rs As Recordset
  Dim SQL As String
 
  SQL = "SELECT * FROM Vereine WHERE Liga = " & CStr(iLiga)
  Set Rs = Db.OpenRecordset(SQL)
 
  Combo.Clear
  If Rs.RecordCount > 0 Then
    Do
      Combo.AddItem Rs("Vereinsname")
      Rs.MoveNext
    Loop Until Rs.Eof
  End If
  Rs.Close
  Set Rs = Nothing
End Sub