Private Sub cmdSave_Click()
    Dim I As Integer
    Dim Db As Database
    Dim dbFile As String
    Dim SQL As String
    Dim rs As Recordset
    Dim Monate As Integer
 
    dbFile = App.Path + "\ZAV.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
    SQL = "SELECT * FROM ZAHLUNGEN"
    Set rs = Db.OpenRecordset(SQL)
 
    rs.AddNew
    rs.Fields("Name").Value = Combo1(0).Text
    [color=red]Monate = Combo1(1).List(Combo1(1).ListCount)[/color]
    Select Case Monate
        Case "Januar"
                rs.Fields("Januar").Value = Text1(0).Text
        Case "Februar"
                rs.Fields("Februar").Value = Text1(0).Text
        Case "März"
                rs.Fields("März").Value = Text1(0).Text
        Case "April"
                rs.Fields("April").Value = Text1(0).Text
        Case "Mai"
                rs.Fields("Mai").Value = Text1(0).Text
        Case "Juni"
                rs.Fields("Juni").Value = Text1(0).Text
        Case "Juli"
                rs.Fields("Juli").Value = Text1(0).Text
        Case "August"
                rs.Fields("August").Value = Text1(0).Text
        Case "September"
                rs.Fields("September").Value = Text1(0).Text
        Case "Oktober"
                rs.Fields("Oktober").Value = Text1(0).Text
        Case "November"
                rs.Fields("November").Value = Text1(0).Text
        Case "Dezember"
                rs.Fields("Dezember").Value = Text1(0).Text
    End Select
    rs.Fields("ZahlVersuch1").Value = Text1(1).Text
    rs.Fields("ZahlVersuch2").Value = Text1(2).Text
    rs.Fields("ZahlVersuch3").Value = Text1(3).Text
    rs.Fields("Kommentar").Value = Text1(4).Text
    rs.Update
End Sub