Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles _
   btnSpeichern.Click
 
        If String.IsNullOrEmpty(txtTerminName.Text) Then      'wird geprüft ob 
        ' das Textfeld leer oder null aufweist
            MsgBox("Name wird benötigt !")              'wenn ja erscheint eine 
            ' Meldung (Messagebox) das ein Name benötigt wird
            Return                                      'Return gibt die 
            ' Anweisung wieder zurück an die Eingabe
        End If
 
        If Bestaetigen("Wollen Sie wirklich Speichern ?") Then
            If TerminID = 0 Then
 
                Dim sql As String
 
                sql = "INSERT INTO Termine(t_datum,t_name,t_ereignis) VALUES (" & _
                  "'" _
                & dtpDatum.Value.ToShortDateString & "','" _
                & txtTerminName.Text & "','" _
                & txtTerminBeschreibung.Text & "')"
 
 
                If SpeichernAendernLoeschen(sql) Then
                    MsgBox("Gespeichert !")
                    Close()
                Else
                    MsgBox("Nicht Gespeichert !")
                End If
            Else
                Dim sql As String
                sql = "UPDATE Termine SET t_datum='" & _
                  dtpDatum.Value.ToShortDateString & "',t_name='" & _
                  txtTerminName.Text & "' ,t_ereignis='" & _
                  txtTerminBeschreibung.Text & "' WHERE ID=" & Val(TerminID)
 
                If SpeichernAendernLoeschen(sql) Then
                    MsgBox("Geändert !")
                    Close()
                Else
                    MsgBox("Nicht Geändert")
                End If
 
            End If
 
        End If
 
    End Sub