Private Sub Form_Load()
   Call ComboFill    'füllt Deine Combo
End Sub
 
Private Sub ComboFill
   Sql = "SELECT * From Intervalle"
   Set rsInterval = New ADODB.Recordset
   rsInterval.Open Sql, DETest.ConTest
   Do Until rsInterval.EOF
        Combo1.AddItem rsInterval.Fields(Feld).Value   
        rsInterval.MoveNext
   Loop
   rsInterval.Close
  Combo1.ListIndex = 3
End Sub
 
'Private Sub Option1_Click(Index As Integer)
   Select Case Index
        Case 0
        Feld = "kmIntervall"
        Case 1
        Feld = "ZeitInterval"
   End Select
   Call ComboFill   'ruft die Prozedur erneut auf
End Sub