Private Sub cmdEinfügen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdEinfügen.Click
 
        'Dateneingabe prüfen
        If txtAufrufname.Text = "" Then
            MsgBox("Bitte einen Aufrufnamen eingeben!")
            Exit Sub
        End If
        If txtProgrammaufruf.Text = "" Then
            MsgBox("Bitte einen Programmaufruf eingeben!")
            Exit Sub
        End If
 
        'Einträge einfügen
 
        Try
 
            con.Open()
            cmd.CommandText = "INSERT INTO Anlagenbuchhaltung (AufrufnameAB," & _
              "ProgrammaufrufAB)" & _
                   "VALUES (@Aufrufname, @Programmaufruf)"
            cmd.Parameters.AddWithValue("@Aufrufname", txtAufrufname.Text)
            cmd.Parameters.AddWithValue("@Programmaufruf", _
              txtProgrammaufruf.Text)
 
            'Eintrag bestätigen
            Anzahl = cmd.ExecuteNonQuery()
            If Anzahl > 0 Then
                MsgBox("Es wurde ein Eintrag ergänzt")
            End If
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        con.Close()
        AlleZeigen()
 
        txtAufrufname.Clear()
        txtProgrammaufruf.Clear()
 
    End Sub