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()

            con.Open()
            With con.CreateCommand()
                .CommandText = "INSERT INTO Anlagenbuchhaltung (AufrufnameAB," & _
                  "ProgrammaufrufAB) VALUES ('" & txtAufrufname.Text & "', '" & _
                  txtProgrammaufruf.Text & "')"
                .ExecuteNonQuery()
                .Dispose()
            End With
 
            con.Close()

EALA FREYA FRESENA