Private Sub Form_Load()
     Sql = "SELECT * From Intervalle"
          Set rsInterval = New ADODB.Recordset
               rsInterval.Open Sql, DETest.ConTest
                    Do Until rsInterval.EOF
                         Combo1.AddItem rsInterval.Fields("kmInterval").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
'
'Form2.Refresh
'End Sub